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otre but n’est pas de vous 
livrer un logiciel ‘’qui sache 
tout faire’”, il serait énorme, 
mais de vous indiquer comment le 
programmer vous-même, exacte- 
ment à vos mesures. Ce ne sera plus 
qu'un sous-programme intégré dans 
votre programme. Une fois tracée à 
l'écran, vous aurez la possibilité 
d' ‘enregistrer cette image ou de l'en- 
voyer à l'imprimante. 
Le sujet n'est pas neuf : nous avons 
déjà publié la Denon 
camembert dans CPC n° 2 page 19, 
les histogrammes en 30 ans CPC 
n° 13 page 54 et les graphiques en 
XY dans CPC n° 6 page 46. Ces 


trois articles ont été ensuite amélio- 
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rés sur des points de détails dans 
l'ouvrage du même auteur ‘’Pro- 
grammes utilitaires pour AMS- 
TRAD'’ (Editions SORACOM). 
Aujourd'hui nous reparlerons des 
graphiques XY, car le logiciel déjà 
cité était un ‘’monstre à tout faire’’ 
très performant, mais dont la com- 
plexité mathématique a souvent 
effrayé.… Cette fois-ci c'est beau- 
coup plus simple d'emploi puisqu'il 
n’y a plus tous ces paramètres à 
entrer ; ils sont constants car ils ne 
concernent que votre programme et 
lui seul. Seuls le titre et les valeurs 
des points changent, d’où un listing 
beaucoup plus court et surtout beau- 
coup plus simple. Heureusement, car 
là on est obligé de comprendre ce 
que l’on tape, puisque nous avons 
annoncé du ‘’sur mesure’ 


DEFINISSONS L'ECRAN 

Pas question d’être en MODE 1, le 
MODE 2 est quasi obligatoire avec 
ses traits fins et ses 80 caractères par 
ligne. De ce fait on passe en carac- 
tères noirs sur fond clair (gris ou bleu 
clair) pour les CPC couleur. 

On dispose horizontalement [X) de 
640 points et verticalement (Y) de 
400 points. En fait ces derniers s'éta- 
lent sur 200 lignes vidéo : cette 
‘’dilatation numérique’’ de 200 à 
400 est une commodité de program- 


Un désir légitime est d'obtenir 
sur écran (Ou Sur papier) un 
graphique représentant des 
valeurs numériques entrées ou 
calculées. Qu'il s'agisse d’une 
“courbe”, d’un ‘‘camembert”’ 
ou de ‘‘barres”’, c'est plus 
‘parlant’” que des colonnes 

de nombres. Hélas beaucoup 
ont abandonné face à une 
complexe programmation de 
PLOT et de DRAW. 


mation, pour que 100 ‘’points Y’’ 
représentent la même longueur que 
100 ‘points X’’, qui eux sont bien 
réels. Voilà pourquoi les traits verti- 
caux sont deux fois plus fins à l’écran 
que les horizontaux. 
Par défaut l'ORIGINE des points en 
X et Ÿ c’est l’angle situé en bas à 
gauche de l'écran, c’est le point aux 
!‘’coordonnées’’ 0,0. 
On ne va pas tracer les deux axes 
à partir de ce point car il nous faut 
une petite marge en bas et une autre 
a gauche, pour y inscrire les gradua- 
tions et leurs valeurs chiffrées, ainsi 
que les légendes et unités de ces 
axes X et Ÿ. Pour ces marges une 
‘’épaisseur’’ de 50 points sera suffi- 
sante, donc l’origine des axes sera 
aux coordonnées 50, 50. De plus on 
va laisser en haut de l'écran une 
‘’marge’’ de 50 points réservée au 
titre, ainsi qu'une autre plus étroite, 
disons 10 points, à droite de l'écran 
afin que le graphe ne ‘’colle’’ pas au 
bord droit ; ça fait plus propre (voir 
figure). Faisons le bilan : 
L'espace UTILE pour le graphique 
n'est plus que de 640-50-10=580 
points en X, et de 400-50-50=300 
points en ŸY. OK ? 
La commande BASIC ORIGIN 
déplace l'origine des coordonnées 
graphiques ; elle va être pratique 
pour simplifier l'écriture du listing. 
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Ainsi nous pouvons déjà tracer nos 
deux axes : 

INK 0,20: INK 1,0 

MODE 2 

ORIGIN 50,50 

DRAW 580,0,1 :’axe X en PEN] 
PLOT 0,0 :’retour à l'origine 
DRAW 0,300, 1 : axe YŸ en PENI 
Jusqu'ici c'est la partie commune à 
tous les tracés de graphiques X,Y. 


LES TRAITS 

DE GRADUATIONS DES AXES 
Nous abordons maintenant les cons- 
tantes personnalisées de votre pro- 
gramme ; nous devons donc poursui- 
vre notre mode opératoire à l'aide 
d'exemples numériques. 

Fixons d’abord les valeurs extrêmes 
de vos axes, par exemple X peut 
aller de O0 à 180 et Y de O à 100. 
On programme alors 

DX= 180 : DY=100 

(Si X variait de 2000 à 5000 on 
aurait DX= 3000) 

Pour traduire les valeurs réelles en 
points graphiques il nous faut établir 
deux facteurs multiplicatifs, à savoir 
FX=580/DX : FY=300/DY 

Fixons le pas (intervalle) des gra- 
duations sas axes : disons un tiret 
toutes les 15 unités sur X et toutes les 
10 unités sur Ÿ 

PGX= 15 : PGY=10 

Pour faire nos petits tirets verticaux 
sous l’axe X c’est tout simplement 
FOR N=0 TO DX STEP PGX 
PLOT N*FX,0: DRAWR 0,-5: NEXT 
Idem pour les tirets horizontaux à 
gauche de l'axe Y. 

Deux choses essentielles sont à 
remarquer : 

+ _ On confie à l’ordinateur le soin de 
calculer les positionnements des 
traits. 

e On utilise à la fois les commandes 
à coordonnées ABSOLUES, telles 
que PLOT et DRAW, et celles à 
coordonnées RELATIVES telles que 
DRAWR. 


ETALONNAGE DES AXES 

Il s’agit d'inscrire des valeurs en face 
de nos petits tirets. On va utiliser la 
même méthode que précédemment, 
mais attention ! Pas question d'opé- 
rer par des LOCATE qui tomberont 
presque toujours ‘’à côté’’, mais par 
TAG qui permet le PRINT à partir de 
n'importe quel point de l’écran. 
Deux rappels à ce sujet : une lettre 
ou un chiffre occupe 8 points de 
large sur 16 points de haut (en 
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MODE 2). C'est l'angle en haut à 
gauche du ‘’pavé caractère'’ quiest 
pris en compte par PLOT et TAG. 
Les valeurs numériques seront affi- 
chées par des PRINT USING, mais 
on peut aussi afficher des CHAI- 
NES, par exemple des mois de l’an- 
née. Ces inscriptions devront être 
centrées en face de leur trait repère, 
donc elles devront toutes avoir la 
même longueur en caractères. Sup- 
posons longueur=3, soit 3x 8= 24 
oints graphiques. En conséquence, 
es TAG sur l'axe X seront décalés 
de 12 points à gauche (LEN/2) et de 
10 points vers le bas (= hauteur du 
tiret + 5 de séparation). Pour l'axe 
Y c'est plus simplement un décalage 
à Douche de 34, c'est-à-dire LEN + 
tiret + séparation. 
Pour ctfichee des chaînes il faudra 
les mettre en DATA. 
Cela est illustré dans notre pro- 
gramme de démonstration, lignes 
25150 à 25200. 
Remarquez la syntaxe de TAG : le 
TAG, les PLOT, et les PRINT suivis 
d’un POINT-VIRGULE ; ce pour évi- 
ter l'affichage de deux caractères 
graphiques. Et en final le TAGOFF, 
à ne jamais oublier. 
Nous venons de terminer le ‘’gros 
œuvre'’, on va ajouter quelques fio- 
ritures telles que titres, légendes, 


etc., et il ne restera plus qu'à tracer 
notre graphe et ça, RE 
ment, c'est le plus facile | 


TITRES ET LEGENDES 

Il est sage de prévoir la place pour 
deux lignes de titres en haut de 
l'écran. Pour leur positionnement en 
hauteur TAG + PLOT est ici encore 
Comme dès le départ nous avons 
opté pour une présentation soignée, 
le titre et sous-titre seront autocen- 
trés. Idem pour la légende de l'axe 
X, mais avec une différence toute- 
fois : 

d’un graphique à l’autre la légende 
X est immuable, elle est dans le pro- 
gramme, alors que les deux titres 
changent ; ils devront donc être 
entrés au préalable par INPUT 
TITIS et INPUT TIT2$ | 


Ces trois textes sont affichés par les 
lignes 25260 à 25300. 

Gros problème pour légender l'axe 
vertical Ÿ : comme notre BASIC ne 
permet pas de faire pivoter un affi- 
chage de 90°, nous allons disposer 
ses caractères les uns sous les autres, 
comme une enseigne verticale. 

Là encore nous conserverons le cen- 
trage haut-bas de la chaîne. Nous 
calculons la hauteur de départ DEP 
(voir ligne 25320) puis un PLOT par 
caractère lu par MIDS. 


| 
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Découpage de l'écran 640 x 400 en 580 x 300 pour le graphe XY. L'origine 
graphique est amenée à l'origine des axes X et Y. 
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Quelques explications : 

La légende LYS a une hauteur HLY 
points (=LEN*16). Le point de 
départ serait à la hauteur 300/2 + 
HLY/2 mais dans la boucle FOR 
N= 1 TO LEN(LYS) on décrémente 
DEP par PLOT-45,DEP-N*16 : il 
faut donc, pour conserver le cen- 
trage, augmenter de 16 la valeur de 
DEP, d'où DEP=166+HLY/2. 
Rassurez-vous, vous n'aurez pas à 
modifier nos formules pour Acier 
les titres et les légendes d’axes ; 
mais il fallait comprendre nos calculs 
au cas où cette disposition ne vous 
conviendrait pas. 


LE TRACE DE LA COURBE 
(lignes 25360 à 25400) 

Notez que nous avons écrit 
‘’courbe’” au singulier. En effet il 
serait difficile de différencier plu- 
sieurs courbes sur un même Ale é 
par la couleur, pas question en 
MODE 2, quant à tracer en pointil- 
lés rien n’est prévu dans notre 
BASIC. C'est possible mais au prix 
d'une complexité de programmation 
‘’pas racontable’’. Il faudrait créer 
un RSX spécial qui serait le pendant 
de la commande DRAW. 


Notre courbe sera en fait une ligne 
brisée joignant tous nos points de co- 
ordonnées. En faire une courbe 
‘‘arrondie’’ nécessiterait un déve- 
loppement mathématique considéra- 
ble ; risqué sur un micro-ordinateur 
de huit bits, même en assembleur. 
(L'auteur n’est pas un matheux, mais 
si cela vous tente.….). 

Notre listing considère que les co- 
ordonnées sont dans un tableau DIM 
V(100,1) : soit 100 ‘’points’’ maxi ; 
indice O=X ; indice 1=Y. Il y a en 
fait NP points à représenter 
(NP < = 100) et à joindre par des 
DRAW. Tout est alors ultra simple : 
PLOT sur le premier point 

PLOT V(1,0)*FX,V(1,1)*FY 

puis des DRAW au deuxième point, 
jusqu'à NP. 


LA PHASE FINALE 

Une fois le graphique terminé à 
l'écran (nous avons chronométré 
deux secondes pour afficher axes + 
légendes + courbe), pas question de 
terminer par END! Sinon nous 
aurions le ‘’Ready’’ en haut à 
gauche... 

On met le micro en attente d’une tou- 


che au clavier (ligne 25420) : 
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si l’on pressé E l'image est enregis- 
trée en binaire ; si c’est une autre 
touche il y a retour en MODE 1 avec 
les couleurs habituelles, et END. 
On peut aussi prévoir | pour Impres- 
sion, c’est-à-dire un CALL ou un 
GOSUB vers une routine de HARD 
COPY d'écran. 

Le fichier écran obtenu par E (17 
kilo-octets) peut avoir trois usages : 
a. À défaut d'imprimante on visua- 
lise les graphiques archivés, par 
LOAD nom du fichier. On peut aussi 
prévoir un programme BASIC très 
court qui les présenterait successive- 
ment à l'écran. 

b. Un tel fichier binaire est chargea- 
ble par certains logiciels de DAO, tel 
CHERRY PAINT qui lui aussi ne con- 
naît que le MODE 2. Vous pourrez 
alors vous livrer à toutes sortes de 
fioritures : titres avec d’autres carac- 
tères, annotations sur la (ou les) 
courbe, quadrillage, etc. Pensez 
alors à renommer le fichier non plus 
en .BIN mais en .C-P avant de le 
charger. Après modifications (ou 
non) vous pourrez ensuite l’enregis- 
trer et l’imprimer en format 21x27 
cm. (Ce que nous avons fait). 

c. À défaut de logiciel DAO on peut 
également obtenir de superbes 
copies sur imprimante avec des logi- 
ciels prévus pour la HARD COPY, 
par exemple TASCOPY de ‘’Sema- 
phore’’ ou PRINTER PACK II de 
‘’Pride Utilities’. 


CAS PARTICULIERS 

Notre exemple était banal et des 
plus courants, mais votre problème 
est peut-être bien plus complexe. 
Nous allons prouver qu'il vous sera 
facile de tout faire en bidouillant cer- 
taines lignes : 

Valeurs cumulées. Ajouter une 
colonne au DIM qui devient DIM 
V(100,2). Cette colonne totalisera 
ct valeurs de la colonne n° 1 (jadis 
Y). 
FOR N=1 TO NP 
VIN,2)=VIN-1,2)+V(N,1) : NEXT 
Pour le tracé de la courbe on rem- 
placera dans le listing les VIN, 1) par 
V(N,2) 

Origines non nulles. Au lieu de par- 
tir dé zéro supposons que l'axe YŸ 
aille de 30 à 130. Posons ORY = 30 
{origine Y). DY vaut 130-30= 100. 
Le tracé des tirets ne change pas. 
Pour l’étalonnage de l’axe Ÿ il suf- 
fira de modifier la fin de la ligne 
25230. j 
PRINT USING 
+ ORY:; 

Reste le tracé de la courbe : 

Ligne 25370 : V(1,1)*FY devient (V 
(1,1)-ORY)*FY 

Ligne 25390 : VIN,1)*FY devient 
(VIN, 1)-ORY)*FY 

Ça marche aussi avec une origine 
négative. 
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LES ECHELLES NON LINEAIRES 


Le cas fréquent (si j'ose dire) est une 
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échelle logarythmique. Par exemple 
pour représenter la réponse en fré- 
quence d’un appareil Hi-Fi entre 20 
et 20000 Hertz sur l'axe des X, il 
serait irréaliste de conserver une 
échelle linéaire, car une variation de 
50 Hertz vers 20 est importante mais 
infime vers 19000... 

Pour mieux comprendre la progres- 
sion logarythmique voici les LOG10 
de 500, 1000, 2000 et 4000 : 2,7 
3,0 3,3 et 3,6. Donc une progression 
linéaire sur l'axe de 0,3 à chaque 
fois que l’on double. On va donc 
aller de LOG10(20)= 1,3 à LOG10 
(20000) = 4,3. D'où un DX=4,3-1,3 
= 3,0, un ORX de 1,3 et le facteur 
FX toujours égal 580/DX. 

Tracer la courbe est très facile : 
2 lignes à modifier : 

25370 PLOT(LOG10(V(1,0))-ORX) 
EX: VMIELIFY 

25390 DRAWI(LOGIO(V(IN,0))- 
ORX)*FX, VIN,1)*FY 


En revanche beaucoup de change- 


ments pour graduer et étalonner 
l’axe X, car on ne peut utiliser un 
STEP PGX. Nous voulons inscrire les 
multiples de 2,5 et 10 : le plus sim- 
ple est de construire une ee de 
DATA où ces valeurs vont être dou- 
blées, une fois en nombre, une fois 
en chaîne de trois caractères. 
25085 DATA 20,/’ 20’, 50, ’’ 50’, 
100, 100, 500, 500, 1000, ‘’1 K’’, 
2000, ‘’2 K’’, 5000, ’’5 K’’, 10000, 
10K, 20000, 20K 

Un premier passage par STEP 2 
avec READ F pour tracer les tirets : 
25110 PLOT(LOG10(F)-ORX)* FX,O 
:DRAWR 0,-5: NEXT 

FISRe RESTORE 25085 pour tout 
ire 

25180 FOR N= 1 TO 10: READ F: 
READ AS 

25190 PLOT(LOG]10O(F)-ORX)*FX 
-12,-10:PRINT AS; 

Et le tour est (enfin) joué. Signalons 
au passage que l’auteur ne connaît 
aucun logiciel graphique du com- 


merce qui propose les échelles 
logarythmiques.. Et là c'est gratuit, 
et en très peu de lignes 


CONCLUSION 


Par la numérotation des lignes 
vous avez deviné que ce 
‘’module en 25000’ sera sauve- 
gardé par SAVE ’’XY'’,A afin 
d'être récupéré par MERGE 
dans vos programmes. Ceci fait 
vous modifierez les valeurs des 
constantes et les légendes d’axes 
avant le SAVE de l’ensemble. 
Ce sous-programme facile à per- 
sonnaliser ne représente que 
1240 octets (REM compris), et 
confèrera à vos programmes 
une option graphe directement 
accessible. 


| Line 


1Q ‘ DEMO DE GRAPHE X-Y - Michel Archamb 
ault 7/87 —- AMSTRAD CFC (tous) 


2Q DEFINT I-N:DIM V(100,1) 


46 DATA 5,60,15,74,32,55,58,358,80,69,100 
,45,115,39,128,52,140,89,160,74,175,51 
Nombre de Points valeurs 

6 FOR N=1 TO NF:FOR J=0 TO 1 


50 NP=11: 


78 READ V(N,J):NEXT:NEXT 


80 TIT1$="MICRO-INFORMATIQUE 


ement + Consommable" 


9Q TIT?2$="PREMIER SEMESTRE 1987" 
Nom du fichier e 


100 GRAPH$="DEPENS/7A": 
cran 
1190 GOSUR 25000 


12Q INK @6,1:INK 1,24:MODE 1 


130 END 
25000 ‘ TRACE DES AXES 
25010 DEFINT I-N 


2502@ INK @,2@:INK 1,@:MODE 


25030 ORIGIN 50,50 


25040 DRAW 580,0,1:PLOT @,@:DRAW @,300,1 


25050 CONSTANTES 

25068 DX=180:DY-100 

25070 FX=580/DX:FY=300/DY 
25080 PGX=15:PGY=10: 


25160 TAG 
25170 DATA JAN,FEV,MAR, AVR, MAI , JUN, JUL 
25180 FOR N-Q TC DX STEP PGXxX2 

25190 READ A$:PLOT NkFX-12,-10:PRINT A$; 
2520@ NEXT 


25210 


ETALONNAGE Y 
25220 FOR N=@ TO DY STEP PGY 


25230 PLOT -34,N4#FY+8:PRINT USING "##h"; 
30 ‘ ENTREES DE VALEURS BIDON N3 


2524@ NEXT 
25250 TAGOFF 
25260 


TITRES 
2527@ LTI=LEN(TITIHS)X8: TAG:FLOT (598-LT1 


)/2,345:PRINT TITI1$; 


: Investiss 


25280 LT2=LEN(TIT2$)X8:PLOT (590-LT2)/2, 


325:PRINT TIT2$; 


25290 


LEGENDE AXE X 
25300 LX#$="M O 1 S'"':LLX=LEN(LXS)X*X8:PLOT 


(590-LLX)/2,-30:FRINT LX$; 


25310 


LEGENDE AXE Y 


25320 LY$="KILO FRANCS HT":HLY=LEN(LYS) x 
16:DEP=166+HLY/2 
25330 FOR N=1 TO LEN(LY#):PLOT -45,DEP-N 


*1é6 


2 25340 PRINT MID$(LY#S,N,1); 


253508 NEXT:TAGOFF 


25560 


TRACE DE LA COURBE 


25370 PLOT V(1,@)4xFX,V(1,1)4FY 
25380 FOR N=2 TO NP 
25390 DRAW VIN,B)XFX,V(N,L)#XFY 


25400 NEXT 


FINAL et Enregistrement par E 


R$="":WHILE R$="":RS=UPPERS(INKEYS 


IF R$="E" THEN SAVE GRAPH$,B,&C200 


25090 REFERES SUR X 25410 

25100 FOR N=0 TO DX STEP PGX 25420 

25110 PLOT N&kFX,@:DRAWR G,-S2:NEXT 4 ) : WEND 

25120 REPERES SUR Y À 15 25430 

25130 FOR N=Q TO DY STEP PGY V7 ,&4000 

25140 PLOT O@,NXFY:DRAWR -5,G:NEXT 25440 ORIGIN 6,0 
25150 ETALONNAGE X 25450 RETURN 
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FORUM DES LECTEURS 


V oici une nouvelle rubrique dans CPC. Cet emplacement ne demande qu'à croître et c'est pourquoi nous lan- 
çons un appel à vous, lecteurs. En effet, nous vous proposons une participation active à un jeu de questions- 
réponses entre les lecteurs. Le système est simple : chaque mois, nous aurons une ou plusieurs demandes concernant 
un problème rencontré sur un logiciel du commerce, ou publié dans CPC ou même des questions concernant votre 
machine préférée : l’ Amstrad CPC. Nous insistons sur le fait que la question doit être générale, ceci afin d'intéres- 
ser le plus grand nombre. Les réponses seront quant à elles publiées le mois suivant. Elles devront être les plus 


claires possible. 
Vous avez sûrement des quantités de questions à poser, c'est donc le moment de nous écrire en précisant sur l’enve- 


loppe : ‘CPC - Forum des lecteurs’’. Nous attendons votre courrier de pied ferme | 


TNEOS. SONTS … 


OFFRE SPECIALE * DISQUETTES AMSOFT * CASSETTES x NEHSTRAD #x* 
10 DISQUETTES 3" AMSOFT DONT 1 NUMERO DE NEWSTRAD . 240 FRS 
20 DISQUETTES 3" AMSOFT DONT 2 NUMEROS DE NEWSTRAD . 470 FRS 
90 DISQUETTES 3" AMSOFT DONT 3 NUMEROS DE NEWSTRAD .1150 FRS 
29 CASSETTES C.i5 DONT i NUMERO DE NEWSTRAD . 140 FRS 
Joindre 19 Frs pour frais de port.Possibilité de commander plu- 
sieurs lots. Cochez l'option désirée. Retournez ce bon et votre 
règlement à MICRO PASSION. 33 BIS RUE CARNOT . 77400 THORIGNY. 


Nom fi ssitésésntin ris aile dresse. s'aime chi ati res 


rate a 6 stone rattaoemis ae) VITE Géirssiihisoss is sbiéda 


NOUVEAU NE WSTR AD 31 FRS SEULEME N7 


Revendeurs, nous consulter. 


Newstrad, c'est un nouveau magazine magnétique mensuel destiné aux utilisateurs 
d'AMSTRAD CPC. Edito, Info, Test softs, Test périph. Initiations au basic et au 
langage machine, Trucs et astuces, Aide aux aventuriers perdus, etc... 
Newstrad, c'est aussi des softs d'enfer, rapides et originaux. Newstrad c'est 
plus de 300 Kilos octets par mois !! Alors abonnez-Vous !!! 12 numéros par an.. 
Pour 1 mois : K7.31 D. 55 FRS. Nom................. Envoyez votre règlement 
Pour 3 mois 93 185 FRS. Âdresse....s.sssssess à MICRO-PASSION 

Pour & mois 185 329 FRS sssoneossssvenesosnsss 33 bis rue Carnot. 

Pour 1 an 340 605 Frs. Ville... .....sssssss.. 77400 THORIGNY. 


Cocher l'option désirée. Je m'abonne à partir du numéro () 1. () 2. () 3 
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Pour ceux qui utilisent la 
nouvelle version de 
SAVECRAN (CPC n° 30) ou 
le REPONDEUR 
TELEMATIQUE., la liaison 
série CPC MINITEL par le 
ort imprimante pose un 
mportant problème de 
connectique. En effet les 
nombreuses connexions et 
déconnexions des câbles 
risquent à plus ou moins 
long terme d’endommager 
le bord de carte du port 
imprimante. Je vous 
ropose donc de réaliser la 
iaison série CPC MINITEL 
par le port K7 de votre 
micro. Votre imprimante 
pourra rester connectée 
définitivement à son port 
d'attache. Les schémas 
suivants décrivent les 
modifications à effectuer 
pour un 464. C'est 
d’ailleurs sur ce D de de 
CPC que le travail sera le 
plus simple. Pour un 6128 
ou un 664, cela sera un peu 
plus compliqué. (Pour ma 
part, j'ai modifié deux 464 
et un 6128 et tout 
fonctionne sans problème 
depuis plusieurs mois...!). 


ATTENTION !! Pour effectuer les 
modifications, il faut ouvrir le CPC 
alors si votre appareil est encore 
sous garantie attendez un peu. 


MATERIEL NECESSAIRE 

— 1 PRISE DIN 5 BROCHES 
FEMELLE (chassis) 

— 2 PRISES DIN 5 BROCHES 
MALE 

— 1 CABLE 3 CONDUCTEURS 
— 1 CABLE 8 CONDUCTEURS 


COMPOSANTS 
ELECTRONIQUES 

— C= 100 nanofarads..….(mar- 
ron noir jaune) 

— R = 2200 Ohms... (rouge 
rouge rouge) 


OPERATIONS 
Un maximum de soin doit être 
observé pour mener à bien cette réa- 
lisation. Tout énervement ou précipi- 
tation est donc à éviter. || est con- 
seillé de taper les modifications des 
routines machines de SAVECRAN 
nouvelle version et du REPONDEUR 
TELEMATIQUE avant d'entrepren- 
dre l'opération de votre CPC. 
Pour le CPC 464 (Se reporter aux 
figures 1 et 2) les cotes fournies pour 
l'implantation de la DIN et de l’IN- 
VERSEUR sont données à titre indi- 
catif et peuvent être modifiées à 
votre guise (attention, il n’y a pas 
beaucoup de place). 

1) Ouvrir votre CPC avec calme. 

2) Débrancher le connecteur 
clavier. 

3) Débrancher le connecteur 
magnéto. 


r- 


Liaison serie CPC MINITEL par 1e vort K7 
fig,l RE Cable 8 fils a 
= | | | coller au fond 
Clavier du CPC 4 ge, Loitie 
vu de l'interieur | 
=) | = 
ati | Connecteur — Connecteur 
+ er | nagneto | clavier 
figé — Rouge 
: m— Liaisons à supprimer Prise din 5 broches 
Connecteur L MESSE | vue cote soudures 
magneto vu Poe a f 
ne fils | ee qu 
| | | 
Bleu — Le + Es | | 
| Vert — fs Loc). +" t fl | 
[nverseur a glissiere | = | 
à circuits & positions f Us #U- 
| an) 
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4) Présenter le clavier comme sur la 
figure 1 sur une table. 

9) En calquant la figure 3, percer 
le trou de la DIN (faire un avant-trou 
avec un foret de 3 ou 4 millimètres 
puis percer à 10 et enfin amener au 
diamètre final à la lime ronde). 

6) Effectuer la découpe de l’inver- 
seur à glissière (percer plusieurs 
trous puis ajuster à la lime). 

7) Monter la DIN et l'INVÉRSEUR 
(coller ou visser). 

8) Préparer le câble 8 fils et le col- 
ler au fond du clavier (voir fig. 1). 
Seuls 6 fils sur les 8 existants seront 
utilisés pour l'instant. 

9) Couper les fils BLEUS et VERTS 
du connecteur magnéto à environ 
2 cm de l'extrémité de celui-ci, puis 
câbler suivant le schéma de la figure 
2.Cet R sont à souder directement 
sur la DIN. Le +5V et le -5V sont à 
prélever sur l'alimentation de la 
LED. Le + est le fil rouge, le - est le 
fil noir. Utiliser le câble 8 conduc- 
teurs collé au fond du boîtier pour 
effectuer la liaison entre la DIN 
femelle et les fils BLEUS ET VERTS 
coupés. Le raccordement des fils 
entre eux se fait par épissures sou- 
dées et isolées à l’aide de vernis. 
10) Après vérification du câblage 
refermer le CPC sans le visser. 

11) Confectionner le câble de liaison 
CPC-MINITEL (voir fig. 4). 

12) Après une dernière vérification 
du câblage passer aux essais. 


ESSAIS 

1) Mettre l’inverseur sur la position 
adéquate. 

2) Brancher le cable de liaison 

Si vous avez effectué les modifica- 
tions des routines vous pouvez revis- 
ser le boîtier du CPC sinon il faut 
revoir le cablage ou les modifica- 
tions logicielles. 


MODIFICATION D'UN 6128 
(Novices s'abstenir) 

Les modifications entraînent une 
manipulation du circuit imprimé ; il 
faudra donc veiller à ne pas endom- 
mager la nappe reliant le clavier au 
circuit (fragile). 

1) Ouvrir le CPC (toujours avec 
calme !!). 

2) Repérer le circuit intégré portant 
la référence 8255. C'est un gros cir- 
cuit à 40 pattes. (Voir fig. 5). 

3) Retirer les vis du circuit imprimé. 

4) Débrancher le fil de masse 
reliant le circuit au lecteur de disque. 

5) Retourner le circuit imprimé et à 
l’aide d’un cutter couper la piste qui 


arrive à la patte 25 du 8255 (fig. 7). 
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LE PORT 


Prise DIN 


CASSETTE 


fenelle 5 
broches 


ET Christian MATHIS LE 


MINITEL 


?| Revisser le circuit imprimé. 
7) Repérer les pattes 7, 12, 25 et 
26 du 8255. 
8)Câbler comme sur la figure 6. 
9) Souder le condensateur entre les 
broches 2 et 3 de la DIN 
10) Refermer le boîtier sans le visser. 
Lee Confectionner le câble de liaison 
(fig. 4). 
12) GOTO ESSAIS 


MODIFICATIONS SAVECRAN 
(Nouvelle version CPC n° 30) 
10 MEMORY &9FFF 

20 LOAD''SAVECRAN'' 

30 AD=&A001 

40 FOR I= 1 TO 6:READ AS:POKE AD, 
VAL (/'&'’+AS):AD= AD +1: 
NEXT 

50 POKE &A1B6,&F6 

60 FOR I=&AIBD TO &AÏIBF: 
POKE I,&I1F:NEXT 

70 DATA 06,F6,3E,20,ED,79 

80 POKE &A22E,&C9 

90 POKE &A249,&62 

100 SAVE ’’SAVECRAN.BIN'’,B, 
&A001,&6A3 

110 END 


MODIFICATION SER1.BIN 
(Répondeur) 

Si vous possédez la routine machine 
SERI.BIN modifiée (CPC 22 page 
37 article sur fond bleu) tapez en 


ligne 10 A=&193 


INFORMATION A PROPOS 
DE SAVECRAN (CPC n° 30) 


Certains d’entre vous ont constaté un 


plantage au moment d’un hard 


(Fonction !'1!! de SAVECRANI. Ceci n'est 


pas dû à Le pe logiciel, mais à un 


mauvais câ e de la 
votre liaison CPC MINITEL. 


REMEDE : assurez-vous que les points 2 
et 4 de votre prise DIN ne sont pas 


strapés. 
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rise DIN de | 


Le DIN males 
Icotes soudures 


10 A=8&179 

20 MEMORY &9FFF:LOAD''SERI. 
BIN/ 

30 AD=40960:FOR 1=40960 TO 
41036:READ AS:POKE 1, VAL('&' + 
AS):NEXT 

40 FOR 1=41232 TO 41500 

50 IF HEXS(PEEK(I)}="’40 AND 
HEXS(PEEK(I+1)}=""AO'" THEN 
POKE |,&42 

60 NEXT 

70 FOR 1=41232 TO 41500 

80 IF HEXS(PEEK(I)}="’17" AND 
HEXS(PEEK(I+ 1)}=/’17"" THEN POKE 
14+1,&C9:1=41500 


90 NEXT 

100 SAVE''SER1.BIN'’,B,&A000,AÀ 
101 END 

110 DATA D5,Ë5,F3,21,00,A1,36,00, 
06,07,0E,00 

111 DATA 23,1F,DC,21,A0,CB,16,10, 
F7,23,79,E6 


| fio.6 


| DIN femelle À 
| vue cote soudures | 


| { 


8855 vu de dessous 
| quand le circuit 


inpriné est retourné 


fig] Implantation de la DIN et de l'inverseur 


[fig, 4 rn Cable de Liaison CPC NINITEL de Liaison CPC MINITEL 


Career 3 
conducteurs 


MODIFICATIONS POUR UN 6128 Es . | 


EE À | 


ris] | 


au ER 


«- CFC 464 vu cote 
gauche 


Inverseur à glissiere 


| fig,5 | Brochage du 855 


Broche 85 
input data 


as TE 
… 


Broche 12 
output data 


120 DATA 01,1F,CB,16,23,36,01,18, 
04,F5,0C,F1 

121 DATA C9,21,00,41,01,00,F6, 16, 
0A,3E,00,CB 

130 DATA 1E,1F,1F,1F,ED,79,CD,42, 
A0,23,15,20 

131 DATA F0,37,E1,D1,FB,C9,CS,01, 
6E,00,0B,78 

140 DATA BI ,20,FB,C1,C9 


MODIFICATION DU BASIC 
(Pour le REPONDEUR) 

En ligne 80 du BASIC ajouter OUT 
&F600,32 


C'est fini. Si quelques points vous 
paraissent obscurs laissez-moi un 
message sur mon répondeur 
(29-60-00-10) mais soyez assez 
précis dans vos questions. 


BONNE BIDOUILLE. 


H: ] | Piste à couper 
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e Marque 
et image de marque 


Tout d’abord merci de vos témoi- 
gnages de sympathie. Cela ne pou- 
vait que nous faire plaisir étant 
assez inattendu. 

Il va sans dire que, n’en déplaise à 
Marion Vannier PDG d'AMSTRAD 
et à son staff, nous n'avons pas l’in- 
tention de modifier notre titre de 
presse. Nous sommes déjà très éton- 
nés qu’à l’époque aucune tentative 
n'ait été effectuée pour nous interdi- 
re | 

Nul n’ignore maintenant que le PDG 
d'Amstrad est liée aux nouvellles 
revues (d'autant que l'INPI révèle 
que c’est Amstrad qui a fait le dépôt) 
et entend en contrôler l'information 
(Sic SVM 1). 

Au nom de l’image de marque 
d'Amstrad |! 

Seulement un journaliste du cru Ams- 
trad manie, la vulgarité, la désinfor- 
mation et le dénigrement sur ses con- 
currents sans signer son article. Sûr 
que Marion Vannier a dû en pâlir ! 
Au nom de l’image de marque bien 
sûr | 

Alors que dans SVM Marion Van- 
nier expose sa position sur la presse, 
c'est dans l’un des journaux dont elle 
contrôle l'information qu'elle donne 
une version différente de ses propos. 
C'est plus facile que de répondre 
dans SVM où les journalistes con- 
naissent leur sujet | 


+ AURALOG : votre compatible PC va 
pouvoir vous épauler dans un domaine 
assez complexe : l’aide à la décision. 
Grâce à un logiciel intitulé AURA-PREVI, 
cette grande société offre à tout décideur 
la modélisation d’un problème débou- 
chant sur un ensemble de scénarios pos- 
sibles. Le développement du programme 
à l’aide de Pois a permis d'intégrer 
des concepts de l'intelligence artificielle. 
Pour tout renseignement : AURALOG - 
22, rue Emile Baudot - 91120 Palaiseau. 
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Notre Direction écrit à Marion Van- 
nier PDG d’Amstrad. 


Madame, 

La presse n’appartient pas seulement aux 
propriétaires des titres, Amstrad dans 
votre cas. Elle appartient aussi à ses lec- 
teurs. Ce sont eux qui sont les actionnai- 
res de la presse, cela en versant les quel- 
ques francs pour l’achat de leur mensuel. 
Ce sont eux qui font l’indépendance de 
cette presse et assurent à notre pays une 
structure d’information indispensable. 
Encore faut-il que chacun dénonce les 
raids sur les journaux indépendants. C’est 
le rôle de ceux pour qui l’information 
représente une responsabilité et pas seule- 
ment un gagne-pain ! 

A la veille de l’application de l’Acte uni- 
que européen, chacun doit aider la presse 
à se défendre et à vivre au nom du plura- 
lisme indispensable à notre société. Il en 
est de même dans la presse spécialisée. 
Dans SVM, vous affirmez que les titres 
AMSTRAD sont liés à vous. Ceci se con- 
firme par le fait que Amstrad PC mag est 
déposé à l’INPI par votre société, pour ne 
citer que celui-là. Vous affirmez vouloir 
contrôler l’information, ce qui peut paraî- 
tre surprenant. Sans doute au nom de 
l’image de marque d’Amstrad. 

Il y a tout de même un chemin entre l’épi- 
cerie et la presse ! 

Sous couvert d’une rencontre avec le 
rédacteur de l’une des revues mentionnées 
vous affirmez désormais le contraire de vos 
propos dans SVM. Soit ! Après avoir tenté 
de faire supprimer notre titre AMSTAR, 
vous prêtez votre nom à un transfuge 
d’Hebdogiciel pour mener une violente 
attaque, contre toute déontologie, en des 
termes vulgaires, avec des informations 
non vérifiées, cela contre notre société et 
nos titres. 

Sans doute au nom de l’image de marque 
d’Amstrad. 

Si tel est le cas, vous n’avez pas fait le bon 
choix, car ce qui fait l’image de marque 
de votre société et de vous-même, c’est 
bien la presse. Toute la presse. Mais pas 
la vôtre ! 

Recevez, Madame, mes salutations distin- 
guées. 


eg 
ss as es a" es" 


+ LE LECTEUR PACE : vous trouvez 
les disquettes 3/’ trop chères ? Vous avez 
totalement raison. Lorsque l’on voit le 
prix des 5”’ (de 2 à 7 francs), on ne peut 
qu'enrager de devoir dépenser au moins 
25 francs pour une misérable disquette. 
N'y a-t-il point de recours ? Si bien sûr : 
il ne reste qu’à adapter un deuxième lec- 
teur au format adéquat. Le lecteur 
5'' 1/4 présenté ici est de la marque 
Pace. Son habillage est constitué d’une 
coque métallique de bon aloi. Sur la face 


avant, on remarque une led signalant la. 
mise sous tension. À l'arrière, De inter- 
rupteurs se disputent la place disponi- 
ble ; l’un est utilisé comme commutateur 
ON/OFF et l’autre permet de sélection- 
ner le mode 40 ou 80 pistes. 
Signalons également que le lecteur est 
livré avec une disquette contenant un 
logiciel de transfert des fichiers MS-DOS 
{ou PC-DOS) vers le format CP/M +. Il 
ne reste plus qu’à ajouter qu’il existe un 
modèle PCW et que le lecteur est dispo- 
nible chez Wings Micro Diffusion - 57, 
rue de Charonne - 75011 Paris 
(2390 F TTC). 


Par |’; 
xclus F" Drmédi 


’ 


GAGNER AU LOTO 


un rêve qui peut devenir 
réalité avec 


LOTO - MATIC 


le programme qui vous révèle 
tout ce que vous devez savoir 
pour : 
e trouver facilement les numéros 
qui ont le plus de chance de sortir 


e établir scientifiquement 


les grilles les plus performantes 
grâce aux tests du Lotoscope 


e contrôler sans peine 
les résultats de vos jeux 
Editions écran et imprimante 
Documentation détaillée 
+ CADEAU contre 4 timbres 
INFORMATIC Applications 
B.P. 78 - 67800 BISCHHEIM 
Tél. 88.33.58.85 
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aire de 


# en voiture avec Road Warrior, 
un jeu d'arcade qui vous met au volant 
de monstres allant de la Ferrari à la 
Volswagen. Puisque de nombreux 
gêneurs vous entourent, votre armement 
est conséquent. La simulation respecte 
même les pannes d'essence et il faudra 
avoir un œil sur la jaugé pour ne pas finir 
le jeu trop rapidement. (Sortie en mars). 


ee L Manoir «di cm k, 


2 fé 
+ 
el 


: cetté toute nouvelle société 
française (oui monsieur |) annonce trois 
logiciels d'aventures sur Amstrad : Fro- 
zarda, Rat Connection, Marmelade et 
Transformateur 3000, un utilitaire de 
copie de cassettes à disquettes. 
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ENFIN UN BUREAU POUR VOTRE 
ORDINATEUR A 490 F T.T.C.‘ 


e Structure rigide en bois de 35 kgs + Large 

espace disponible + Espace de rangement pour 

cassettes + Belle finition d'ensemble. Peinture 

anti-reflets, disquettes et papier + Livré en kit. 

Grande facilité de montage + Dimensions. Hau- 

teur : 80cm. Longueur : 77 cm. Profondeur : 
61 cm. 


FC EE é 


ECRAN 


IMPRIMANTE 


DISQUES 


CLAVIER 


BIBLIOTHEQUE 


* Frais de port en sus. (| 


REVENDEURS, NOUS CONTACTER 
Ë S.N.P.P., 39, rue Lafayette 
75009 PARIS - Tél. : (1) 48.74.40.61 


Prénom 


Je commande... 

490 F TTC. 

Ci-joint mon vo par Mons NP de 160,00 F de frais de port par article, 
soit au total de. s ” TTC 
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PLANS 


ANIN Ts 


ATEN 2 


2 \ 


.Fichier de 65200 caractéres 
.256 caractéres maxi par fiche 

.De 1 à 99 zones par fiche 

tion du fichier à travers des 
paramétrables 


7 
SE = 


FORMULAIRES ECRANS" 
.Modification-Visualisation-Suppression 
Sur Sélection MONO FICHE ,MULTI CRITERES, 

Sur l'ensemble du FICHIER 
Fonction de tri du Fichier 
FICHIER SIMPLE 


répond à TOUS vos besoins : Fichier stock 


Fichier clientèle ,documentaire,etc ... 


464+:DD1,664, 8256 
Pour bientot 


Rens et Doc contre 2 timbres 
Comande accompagnée de votre réglement 


M.L.C des Conbrailles 
Montaigut 63700 St Eloy Les Mines 
(Rens :Roberto Tel 


e dé 

7 

DS 12 
/\ 

IN NI 

sl “à 

| \A| 
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2 
Ÿ 


_ 
s/ / 
7 TA 
LT 1 AS 
SRE EI CE \ 

| pe ù IN < 
AS HP 020: TN INA 


/ Jr PAS 
VAR LLLNAN 


PES 
\ees 
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e CARRAZ EDITIONS : nous 
annonce un logiciel très original (dans 
son sujet) le Sida et nous. Ce programme 
a été conçu en liaison avec des spécia- 
listes de la maladie, ceci afin de coller 
à la réalité scientifique. En effet, il s’agit 
d'une méthode de prévention fonction- 
nant sur-un système d'apprentissage par 
l'erreur. De plus, il existe une autre rai- 
son pour dthaler ce logiciel : l'argent 


récolté sera reversé intégralement à la 
Recherche contre le SIDA. (Sortie du 
logiciel en avril). 


-, -… .. LR AU " 
ins lue Te ns R RE she 


PC = 15482 
si i3 est fait pour 
k: ‘al 4 FHOUE Ft celui qui programme en 
= langage machine ou qui 
oué en D a 1 envisage de s'y nettre. 


RET 5 0,Z 1; 8)Fr 8,N 0,C © 
4911H 16481 


“a cu PRE FH 


BYF4H 49140 


DEBUGGER c'est 

xUn désassenbleur. 

xUn éditeur: 256 octets 
directement accessibles 
*Un relogeur qui permet 
de décaler un programme 
sans s'occuper ou presque des modifications à faire 
xXUn pas à pas permettant de visualiser, instruction 
aprés instruction ,le déroulement de vos progrannes 
xAinsi que 19 autres fohctions. 


Women à 
mn 


Vous désirez un 
logiciel de DAO 
qui exploite la 
totalité du CPC 
6128 7? 

GRAPH-SET c'est 
xUne feuille de 
travail jusqu'à 
S écrans direc- 
tement accessi- : émis 

bles *x Un générateur de sprite * Des outils de des- 
sin (aérographe,arc de cercle, ...) *x Des fonctions 
graphiques (rotation,incrustation,copie,inversions, 
...) *%x Une loupe *%x Le multifenétrage * Une fonction 
“UNDO" *# Une sortie sur imprimante paramétrable (du 
timbre poste jusqu'au poster) * 

GRAPH-SET est simple d'emploi (icones,sous-menus) 


Li 411.1 " PISTE : 0 L | 

FICUIR tas 2e 46 42 42 48 43 45 1 æ DISCKHELP est un 

Sn N M nn da ce — 
dserian : EPP 3 4 ë noniteur de dis- 
“Héntis tb? 4 EE quette.Il permet 
Léresipee du PE: l'accés direct à 
fiéathà ébe. 46434 434 chaque octet d' 
DATCRTE udust L 
ich 4: Ep pe cp une de il et 
rene ainsi, î 
Se l 15 13 08 08 68 0 6 ph ë | X Récupérer un 
SEE ETAT MEN programme effacé 
site = à *x Cacher, ,locali- 

ser un fichier 


x Réparer,modifier un catalogue * lire ou rectifier 
octet par octet le contenu d'une disquette, nettoyer 
celles en format DATA d'ure manière sure et rapide. 


C.l. ASSISTANT est un 
logiciel de dessin de 
circuits imprimés 

%*x Taille 600 . 540 mm 
x Sinple, double face 
* 2 échelles * Sortie 
sur imprimante *% Bi- 
bliothèque *x Généra- 
teur de symboles *x 2 
versicns. 


st+-@0o1al10: 


Ces quatres logiciels sont cent pour cent en lan- 
sage machine #1 sont entièrement résidents. 


Prénom 


Ville 
Veuillez me faire parvenir : 


Une documentation ( joindre 3f70 en timbre) 
DEBUGGER 6128/664 295 
GRAPH-SET 6128 uniquement 375 
DISCKHELP 6128/664 175 
CI Assistant 6128 uniquement 550 
CI Assistant + ” ” 800 f 


frais de port _20f 
ELS 21 rue j. dumas 24660 CHAMIERS 


ES 
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qu'y a-t-il de commun 
entre Armand Jamot et Loriciels ? Les 
chiffres et les lettres bien sûr. Ce logiciel 
a été présenté lors de la 13° coupe des 
champions qui se déroulait du 28 au 31 
janvier dans la principauté de Monaco. 
Les hits nouveaux sont arrivés, le tome 6 
vous propose trois programmes d’ar- 
cade : The last mission, Flash et un logi- 
ciel inédit Atomic Drive, une sorte de 
Pac-man automobile. : 
Engagez-vous | Loriciels recrute trois 
programmeurs et deux graphistes. Quel- 
ques conditions requises : savoir pro- 


grammer en € et/ou en assembleur, con- 
naître le marché de la micro-informatique 


vendredi 22 
janvier, gare de l'Est. Un train très par- 
ticulier stationnait en effet puisqu'il était 
composé de voitures bleues à l'effigie de 
la compagnie des Wagons-Lits. Agatha 
Christie et Hercule Poirot n’étaient pas 
loin. Ce cher Hercule aurait très bien 
évolué dans ce milieu : ici tout n’était 
qu'ordre et beauté, luxe, calme et 
volupté. Mais puisque même les rêveries 
nostalgiques ont une fin, un homme chut 
d'un wagon. Ce dernier resta impassi- 
ble, insensible au drame qui se dérou- 
lait sous ses fenêtres dont le pourtour 
était encadré d’un rideau qui, ma foi, 
aurait fait belle figure dans un salon ély- 
séen. Presque aussitôt, un attroupement 
se forma, dés photographes jaillirent de 


nulle part ou d'à côté et se mirent à fla- 
sher à l’aide d'instruments évoquant 
l'élégance subtile d’un projecteur de 
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et, enfin, posséder une imagination 
débordante. Envoyez vos CV à M. Mar- 
chand - LORICIELS - 81, rue de La Pro- 
cession - 92500 Rueil Malmaison. 


rayons ‘’X’’. Un policier que l’on aurait 
pu croire plus vrai que nature s’il n'avait 
été aussi faux qu'un autre qui le serait 
tout autant, agitait en vain son imper- 
méable gris et ses mèches blondes. En 
vain, puisque à peine écroulé, l’homme 
mort du quai ne respirait même plus. Les 
brancardiers firent alors leur office et 
transportèrent le corps vers un monde 
meilleur. 
Nous nous installames confortablement 
autour de notre bi etes certes, 
mais qui allait s’enhardir au cours de la 
soirée). Sans même un signe de la main, 
le convoi se mit en marche d’un pas tota- 
lement circulaire. À l'intérieur des 
wagons et particulièrement au piano 
bar, tel un surplus de vapeur dans une 
cocotte-minute, l'angoisse préssurait l'at- 
mosphère dans une proportion seule- 
ment appréciable par qui a eu un jour 
la révélation des calculs thermodynami- 
ques concernant l’état d'un système 
fermé. Cette sourde étreinte d’un doute 
exacerbé se manifestait par le tremble- 
ment nerveux qui agitait mon genou 
droit. Mille questions se précipitèrent 
dans ma tête à la manière de particules 
sub-microcospiques projetées sur un 
écran par la force conséquente et non 
moins magnétique d’un cyclotron. Je 
compris plus tard que nous n’étions pas 
embarqués pour le tournage d’un 
remake de meurtre dans l'Orient Express 
version moldo-slovaque, mais bien dans 
une séance de thérapie ludique et collec- 
tive que les anglophiles acharnés persis- 
tent à appeler ‘’Murder Party”’. Un 
détour par les caves d’une marque de 
champagne célèbre, dont le nom s’il doit 
rester anonyme n’en présente pas moins 
une forte homonymie avec le mot 
l'merci’’, n’apporta pas grand-chose à 
l'enquête, si ce n’est la satisfaction gou- 
lue d’inbiber d’encore un peu plus d'al. 
cool mon organisme presque saturé. 
Malgré mon grand trouble, je réussis à 
saisir quelques bribes d’un discours 
cohérent dans le brouhaha permanent 
ui s’organisait comme un défilé de 
AGTistes marchant de Bastille à Nation. 


deux nouveaux logiciels de 
paie voient le jour. Une version Stan- 
dard (1.0) et une version Major (3.0). 
L'ergonomie, la facilité d'utilisation ont 
été augmentées grâce à la couleur et au 
multi-fenétrage. Ces programmes tour- 
nent avec tout compatible MS.DOS pos- 
sédant 640 Ko de RAM et équipé d'un 
disque dur. (Prix : version Standard 


4900 F HT - version Major 9500 F HT.) 


Dès lors, l'annonce d’un nouveau pro- 
duit de la société Cobra Soft m'apparut 
comme une illumination dans ce délire 
baroque : il s'agissait de ‘’La marque 
jaune’ dont le titre a lui seul fait perler 
une larme d'émotion sur la joue ridée du 
bédéphile qui se respecte. 

Ce programme comprend en son sein un 
pee délicatement prédécoupé dont 
utilisation malveillante va encore pro- 
curer un surcroît d'activité aux les per- 
sonnes chargées du nettoyage de nos 
murs citadins. Les éditions sus-nommées 
auraient également du carton dans leurs 
projets puisque l’on parle d’un jeu de 
table (les Ripoux) organisé autour du 
thème ci-avant mis entre parenthèses. 
Dernier somme (euh, produit |) en vue : 
l’organisation de jeux de rôle, grandeur 
nature et tout, et tout. Ici Blake, à vous 
Mortimer. 


CPC N° 32 - Mars 1988 


a 


UN 
NOUVEAU 
PATRON 


Entré aux Editions SORACOM en 1985, Gérard PELLAN s'est 
particulièrement occupé du service commercial revendeurs. 
De nombreux lecteurs eurent l'occasion ces deux dernières 
années de le rencontrer dans divers salons. 


En 1987, il entre dans la société Bretagne Edit' Presse et est 
chargé du développement de la vente par correspondance. 
Fin 87, il devient actionnaire aux côtés de Florence MELLET 
et Sylvio FAUREZ, ce dernier gérant depuis la naissance de 
la société. 


Depuis le 1er janvier 1988, Gérard PELLAN est officiellement 
"le Patron" de Bretagne Edit Presse dont il est nommé gérant. 
S. FAUREZ reste chargé au sein de la société du 
développement de la gestion presse et contentieux. C'est le 
4e collaborateur des Editions SORACOM à devenir chef 
d'entreprise. 


Enfin pour votre CPC 6128 


VECTORIA 3D 


Un puissant logiciel qui permet de réaliser 
en quelques minutes des dessins en 3 dimensions. 


Conçu pour répondre aux besoins 
des plus exigeants, VECTORIA 3D possède 
une panoplie complète d'outils simples à uti- 
liser mais réanmoins d'un rendement pro- 
fessionnel 


L'affichage simultané des trois vues 
de base et du résultat tridimensionnel (qua- 
tre fenêtres de taille équivalente à l'écran) 
permet une lecture aisée ainsi qu'un repé- 
rage rapide d'erreurs éventuelles. 


VECTORIA 3D c'est aussi des fonc- 
tions puissantes : translation, rotation, zoom, 
cercles ou ellipses, tracé de rectangles, joint, 
optimisation, annulation de la dernière fonc- 
tion, assemblage d'objets en scène, etc. 
Impression, soit des quatre vues, soit d'une 
scène sur imprimante. 


PRIX: IOFTIC. 


Disponible sur compatible PC:410F 


BON DE COMMANDE : Veuillez retourner ce bon accompagné de son reglement par chèque 
postal ou bancaire pour un montant de 410F TTC+30F (port et emballge) à l'ordre de M.MC 


| MMC :, rue Lincoln 75008 Paris Tél. (1) 4256 1282 gs 


NOM 


PRÉNOM 


NOS AUTRES COURS 


ADRESSE 


V2 


CODE POSTAL &_5 1 1 1 1 VILLE 


EXPLOITEZ 
VOTRE 
AMSTRAD 


le livre + la cassette 


103 F FRANCO 


Jeux - Gestion 
Education - Domestique 
Impression de documents 


Un best-seller 


Bon de Commande 
à renvoyer à STAMP DIFFUSION, ]7, rue Russeil - 


Exploitez votre Amstrad. 103 F - Port gratuit. 


Nom , Prénom 


Adresse a _ 
Ci-joint chéque de 103 F. 


B.T.S. 
INFORMATIQUE DE GESTION 


Diplôme d'Etat 


Avec ou sans Bac,vous pouvez, dès maintenant, préparer tran- 
quillement, chez vous, le B.T.S. Informatique de Gestion. || ne 
demande pas de connaissance informatique au départ et vous donne, 
en 2 ans environ, la qualification professionnelle pour devenir 
Cadre Informaticien. En option, stage pratique sur ordinateur. 


B.T.S. 
BUREAUTIQUE ET SECRETARIAT 


Diplôme d'Etat 
Vive ce nouveau B.T.S.! Il introduit les matières de pointe telles 
que le Traitement de Texte et permet aux secrétaires d'accéder à 
des postes de haut niveau. 3 options : Secrétariat de Direction, 
Secrétariat Trilingue, Secrétariat Commercial Bilingue. 
Avec ou sans Bac, ce diplôme, fort apprécié des Entreprises, se 


prépare très bien par correspondance, en 2 ans environ. 
QTE L'ANNÉE 


B.P. Informatique (Diplôme d'Etat) 
Programmeur sur micro-ordinateur - Analyste Programmeur 
Cours Général d'informatique - Bureautique / Traitement de Texte 


æ * Nos préparations aux Examens d'Etat bénéficient de notre GARANTIE-ETUDES. 


| 7, rue Heynen 
PIG 92270 Bois-Colombes: 


Tél: (1) 42 42 59 27. 


LE PROGRAMME 


Précisons-le d'emblée, 
MISSIVE n’est pas un 
traitement de textes, mais 
bien plutôt un éditeur de 
textes. Cela n’enlève rien à 
ses mérites. 

Il a été concu en milieu 
scolaire et longuement 
testé et optimisé. C’est un 
logiciel modeste, mais 
équilibré et riche de 
possibilités, conçu pour 
répondre à un triple 
objectif : 


1) Permettre à des enfants 
une véritable initiation au 
traitement de textes, 
comme le recommandent 
les Instructions Officielles. 
— mais travailler en 80 
colonnes ; 

— voir son texte à l’écran 
comme il sera imprimé ; 
— travailler sur des textes 
de volume raisonnable ; 
— permettre un journal 
scolaire. 


2) Permettre de gérer le 
courrier de l’école ; 

— information des 
parents ; 

_— relations avec les 
partenaires de l’école ; 

— courriers administratifs. 


3) Permettre de faciliter les 
préparations de classe. 

— préparation de fichiers 
de texte pour des logiciels 
pédagogiques ; 

— éditer des documents 
bien présentés pour les 
leçons. 
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Georges HECKER 


+ Objectif complémentaire, tirer parti 
des possibilités de l'imprimante 
MANNESMAN-TALLY du plan I.P.T. et 
ce en disposant des accents (redéfinis), 
malgré les sept bits que l'on sait. 
C'est pourquoi il est quand même per- 
mis de dire que MISSIVE est un logiciel 
de type professionnel, dans la mesure où 
il permet d'atteindre très correctement 
ces objectifs. 

Il peut donc se révéler utile aussi dans 
un cadre domestique. Il sera possible de 
traiter un peu plus que les listes de com- 
missions. 


LA NOTICE 


IL est un fait qu'entre l’utilisation d’un 
rogramme st lo description de cette uti- 
fsiieh existe un décalage, qui fait 
paraître lourde ou simpliste toute expli- 
cation un peu détaillée. Triste sort que 
celui d'un mode d'emploi, condamné à 
subir l'ingratitude condescendante de 
ceux là qui hier encore l'appelaient à 
leur secours. 
Mais voilà, comment parler de pédago- 
gie, si l’on néglige de parcourir au moins 
une fois, avec l'utilisateur novice, les che- 
mins qui permettront de bien posséder le 
logiciel € 
C'est pourquoi la notice de Missive a été 
soignée, c'est pourquoi elle est longue. 
Espérons qu’elle permettra à l'utilisateur 
du programme de s’en faire un allié 


fidèle. 
CONFIGURATIONS 


CONFIGURATION MINIMALE 

Il'est possible d'utiliser Missive, moyen- 
nant quelques adaptations détaillées en 
annexe, avec un CPC 464 tout seul, sans 
lecteur de disquettes et sans imprimante. 


CONFIGURATION STANDARD 

Le programme a été conçu sur un CPC 
464 avec DDI et imprimante MANNES- 
MAN. 


MISSIVE 


L'utilisation du lecteur de disquettes per- 
met au logiciel de donner tout son poten- 
tiel. 


LA DISQUETTE 
Elle devra contenir les fichiers suivants : 


a) CHARGEUR.BAS pas indispensa- 


ble. 

b) PRESENTA.BIN ,c'est l'écran de pré- 

sentation constitué avec le programme 

lui-même. 

c) MISSIVE.BAS ,c'est le programme 
rincipal. 

d) REDEFCAR.ASC ,c'est le programme 

de configuration de l'imprimante et d'ac- 

centuation. 

e) DELETE .ASC ,pour effacer Redefcar. 

mis et gagner de la place en mémoire. 

On lance le programme par RUN 

!’CHARGEUR'’’ ou RUN ‘’MISSIVE”’. 

Les fichiers produits par MISSIVE por- 

tent automatiquement l'extension .MIS . 

Sous CP/M on fera des ravages avec 

*.MIS. 


REMARQUE IMPORTANTE : 

De façon à alléger la mémoire, le listing 
de MISSIVE a retrouvé la ligne de la 
façon suivante : 

Suppression des lignes de REM. 
Utilisation du POKE &ACO00, 1 pour sup- 
primer les blancs inutiles. On le frappe 
en début de saisie. 


MISE EN ROUTE 
ET CONFIGURATION 


Le programme peut être lancé après un 
menu, une page de présentation, ou tout 
simplement par : 

RUN ‘’MISSIVE"" 

La liste principale appelle le chargement 
des RSX, puis le chargement d'exploita- 
tion et l'effacement du programme 
annexe ‘’REDEFCAR.MIS'' destiné à 
ps le pavé numérique avec tous 
es accents et à définir les codes pour 
l'imprimante utilisée. 
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Ceci fait, en peu de temps, les fenêtres 
du programme s'affichent, d’abord la 
grande fenêtre d'édition avec ses vingt 
lignes de points, puis la fenêtre de com- 
mande, au bas de l’écran. 


LE MOT DE PASSE 

Un mot de passe conditionne l'accès au 
programme. || faut le taper sans erreur, 
sinon il est refusé. A la différence des 
autres messages, il n’y a pas d’écho- 
écran lors de sa frappe. L'utilisation du 
mot de passe, très pédagogique, plaît 
beaucoup à des ane 

Le mot actuel est LITTERATURE "*, l'étoile 
représentant un blanc obligatoire. La 
modification du mot de passe se fait en 


ligne 285. 


LE MENU GENERAL 

Sésame ayant fait son office, apparaît 
dans un grondement de tonnerre le menu 
général : 

INTRODUIRE LE TEXTE -T- 

REDIGER LE TEXTE -R- 

ACCES SUR LE DISQUE -A- 
SAUVEGARDER LE TEXTE -S- VI- 
SUALISER LE TEXTE -V- 

AZERTY <-> QWERTY -C- 

L'appui sur les lettres-commandes 
déclenche immédiatement la fonction 
désirée. 

Pour ceux qui en ont déjà assez, signa- 
lons qu'il existe des commandes cachées, 
en particulier : 

— La Fin du programme est obtenue en 
tapant la touche [F]. 

A bientôt... 


Continuons pour les autres. 


CONFIGURATION 
DU CLAVIER 
ET DE L'IMPRIMANTE 


LE CLAVIER 

L'appareil utilisé pour mettre au point 
MISSIVE, un CPC 464 issu des premiè- 
res vagues de la marée a un clavier 
QWERTY. D'aucuns préférant azerter, 
il est donc possible, en tapant [C] 
(comme clavier) d'obtenir un sous-menu 
d'adaptation. 

Répondre [1] azertyfie. 

Répondre [2] qwertyfie. 

Le retour au menu général est automati- 
que. 


L'IMPRIMANTE 

Les commandes sont directes : 

Frapper [P] donnera des caractères Pica. 

Frapper [E] donnera des caractères 

ELITE, 

La sonnerie signale le changement et 
uis.….. 

de you see the leftmost > >P< <2{Y/N) 

et aussi le mot > >P< <? à droite (O/N). 

C'est du NENESSE-DOS... mais restons 

sérieux. 

Il ne nous reste plus qu'à partir vers de 
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nouvelles aventures pour découvrir les 
merveilles cachées par un si beau 
menu... 


MODE REDACTION 


Il s'agit là, bien sûr, du module le plus 
riche du programme. La plupart des 
commandes s'effectuent directement à 
partir du clavier, sans passer par un 
menu, pour des raisons évidentes de 
rapidité. Leur maniement se révèle assez 
simple à l'usage. Il est néanmoins néces- 
saire d’en avoir une bonne vue d’ensem- 
ble pour exploiter toutes les possibilités 
du logiciel. 


OPERATIONS DE SITUATION 


L'éditeur comprend trois pages de vingt 
lignes de soixante-quinze caractères, soit 
quatre mille cinq cents localisations pos- 
sibles. 

Les opérations de situation concernent : 
— la page-écran qu'il est possible de 
faire commencer, au choix par les lignes 
numérotées entre 1 et 40. Tout le texte 
peut ainsi être déplacé et visualisé ; 
— la ligne d'édition qui, selon le même 
principe, peut parcourir toute la page- 
écran ; 

— le curseur de ligne, qui se déplace sur 
toute la ligne d'édition. Il faut remarquer 
ici que l'éditeur de MISSIVE, à l’image 
de celui du CPC n’est pas plein écran. 


+ Opération d'accès 

D'emblée, le menu d'accès demande : 
— le numéro de la page-écran : répon- 
dre entre l et 3; 

— le numéro de la ligne choisie : répon- 
dre entre 1 et 20. 

Il faut valider chaque réponse par 
ENTER’. 

Le texte demandé ou la page vide à rédi- 
ger s'affiche alors en fonction de ces spé- 
cifications : 

— la ligne demandée s'affiche en inver- 
sion vidéo ; 

— le curseur de texte, représenté par 
une petite barre noire, se positionne sur 
le premier caractère de la ligne. 


e Position dans la ligne d'édition 
L'impression des caractères se fait à 
l'emplacement du curseur et entraîne 
automatiquement le déplacement de 
celui-ci à l'emplacement du caractère sui- 
vant. 

Le déplacement du curseur de texte se 
fait en transparence et n’affecte pas ce 
qui est écrit sur la ligne mais le souligne 
simplement. 

— la flèche [—] du pavé numérique 
déplace le curseur vers la droite. Cette 
touche est à répétition, c'est-à-dire qu’il 
suffit de la maintenir pressée pour que 
le curseur continue son déplacement. 


5011 PARIS I] 
pon-75011 PARIS Tél (1) 4 
samedi de 9 h 00 à 19 h 00 


VAN NANIANY/ 
RAA 
MULTI-SPECIALISTE 


MICRO INFORMATIQUE 
Mad V7 V I 
NAN 


vous renseigne 


vous en donne 


{Sauf Promo bien sûr!} 


En mars. 
Ouverture d'une 
utique 
rs Marseille 
69 cours Lieutaud 
13006 Marseille 


À 


AN 


QUICK SHOT 1 
QUICK SHOT 2 
QUICK SHOT 

TURBO 

SMITCH JOY 

SPEED KING 

PRO 5000 5 
PROFESSIONNAL 1 
TERMINATOR 


NN 

DISQUETTES DISQUETTES 
3" 3" 1/2 

DF DD 10F 


par 100 
9 F l'unité 


CLAV 
MONIT MONO 
MONIT COUL 
IMPRIMANTE 


NYSS\S 


DF DD 19F 
par 100 
18 F l'unité 


DD 


SNS 


IMPRIMANTES 
INTERFACE ET CABLE CENTRONICS FOURNIS 
STAR CITIZEN AMSTARD DIVERS COULEUR 

2650 | 1200 1850 | DMP3160 2290 | OKIMAT 20 2490 
2890 |LSP 10 2790 | LQ 500 3990 | MPS 1500 3390 
2410 5990 [MSP15 4590 |DMP4000 3990 |3X720 16500 


NRISZ 


À ALLO DANIELE ? 43.57.48.20 


KKFKFFFFF 
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À 

À COMMANDEZ 

À Par téléphone . . . ALLO RACHEL 43.57.96.89 
À Par courrier . . . . Bon de commande ci-dessous 


ose 3615 code AMIE 


NZ 


2) > 
& 


>» 
n 


acilité AMIE 4 mensualités sans intérêt 

Crédit GREG, taux 18,24 % à partir de 
1500 F après acceptation du dossier 
Carte Bleue, inscrivez le n° et 

la date de validité sur 

= Se de commande ci-dessous 
IARIARRRKRER 

RRRiÈFFiFÉFR 


BON DE COMMANDE AMIE 


à retourner à AMIE VPC, 11 bd Voltaire 75011 PARIS 


DD 


I 


Nom Prénom N tus 
Code Postal Ville Tél 


Mon ordinateur est un réf 


LINLVEHO SNd N3 SLiInNnoOud 530 % OL 


Mont. Total : 


+ frais d'envoi PTT 25 F. transporteur 60 F 
Cijoint mon réglement par chèque 
ccp 
BN 


Mes 10 * de produits en plus 


hors promotion 


Arrivé en fin de ligne, il restera au bout 
de la ligne et une sonnerie retentira ; 
— la flèche [—] du pavé numérique per- 
met de déplacer le curseur vers la gau- 
che (le début de la ligne) dans les mêmes 
conditions. 

Il faut noter une particularité de MIS- 
SIVE permettant de signaler la fin d’une 
ligne. Pour les sept derniers caractères : 
— le curseur prend la forme d’un rectan- 
gle encadré ; 

— une sonnerie prévient l'utilisateur. 
Le déplacement rapide du curseur est 
possible et s'effectue alors par sauts de 
cinq caractères ; 

— presser [shift] + [—] pour aller 
droite ; 

— presser [shift] + [—] pour aller 
gauche ; 

La bonne utilisation de la touche [shift] 
implique qu'elle soit maintenue appuyée 
en même temps que les touches dont elle 
modifie la fonction. En général, il est pré- 
férable de la presser avant, pendant et 
après l’autre touche. 


C©- 


0- 


e Position de la ligne d'édition 

La ligne où s'effectue le travail est faci- 
lement repérable puisqu'elle est affichée 
en inversion vidéo. 

— la flèche [1] du pavé directionnel per- 
met de déplacer la ligne d'édition vers 
le haut. Cette manœuvre, très simple, 
peut s'effectuer à partir de n'importe 
quelle position du curseur. Par contre, la 
nouvelle ligne d'édition sera présentée 
avec le curseur en début de ligne ; 

— la flèche descendante du pavé direc- 
tionnel permet de déplacer la ligne 
d'édition vers le bas. C’est la touche uti- 
lisée pour quitter sans justification une 
ligne que l’on vient de terminer. 

La ligne peut aussi être déplacée avec 
une justification automatique. Cette opé- 
ration de justification n’a pas lieu si la 
ligne a déjà été justifiée. Un test est effec- 
tué sur les caractères de fin de ligne. En 
cas de modification d’une ligne précé- 
demment justifiée nécessitant une nou- 
velle justification, il faudra amener le cur- 
seur en fin de ligne, passer en mode 
insertion en pressant la touche [tab], 
appuyer plusieurs fois sur la barre d’es- 
pace et quitter le mode insertion en 
appuyant à nouveau sur la touche [tab]. 
La nouvelle justification aura alors lieu 
en pressant les touches adéquates. 

La justification respecte les marges à 
gauche dès lors qu'elles sont intégrale- 
ment vides. 


Pour justifier : 

— avec déplacement vers le haut : 
[shift] + (1 

— avec déplacement vers le bas : 
[shift] + UT 

Ces touches sont elles aussi à répétition. 
En raison du mode de programmation, 
il arrive que le mouvement de la ligne 
soit interrompu par une opération de 
garbage. Peu de temps après, il reprend 
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normalement. || n’y a donc pas lieu de 
s'en inquiéter. 


- Déplacement de la page-écran 

Il'est utile, puisque la page-écran com- 
prend vingt lignes et le texte soixante, 
de pouvoir travailler sur n'importe quel 
ensemble de vingt lignes consécutives du 
texte. En d’autres termes, on peut ima- 
giner que la page-écran est une fenêtre 
derrière laquelle, ligne par ligne, défile 
le texte tout entier en avant ou en arrière. 
— pour faire défiler le texte vers le 
haut : 
[ctrl] + Q 
— pour faire défiler le texte vers le bas : 
[cr] + [1] 

Il est à noter que la ligne d'édition con- 
serve sa position doni La page-écran car 
c'est le texte qui défile, pas la ligne 
d'édition | 

Ces commandes sont elles aussi à répé- 
tition et assez rapides malgré le gar- 
bage. Ne pas confondre (hifi avec (orrl] 
pour éviter des justifications aussi impré- 
vues qu'injustifiées…! 

Il est possible d'en distinguer trois utili- 
sations principales : 
— la SE importante permet de faire 
apparaître une nouvelle ligne vierge 
lorsqu'on arrive en fin de page-écran. 
On utilise alors [shift] + [1]; 

— ensuite vient la consultation du texte 
par défilement ; 

— une utilisation plus spécifique consiste 
à placer l'éditeur en mode impression. 
Toutes les lignes défilant sous la ligne 
d'édition seront alors imprimées. Les 
possibilités du mode impression seront 
détaillées ultérieurement. 

Pour obtenir les pages-écrans, il est aussi 
possible de procéder ainsi : 

— retrouver le menu en pressant 
[ENTER] ; 

— prendre l'option rédaction en pres- 
sant [R] ; 

— donner le numéro de la page et de 
la ligne dans la page. 


OPERATIONS D’'INSERTION 


Les opérations d'insertion comprennent : 
— Insertions dans le texte. 
— les insertions de lignes vides dans 
la page-écran ; 
— Tépération inverse de suppression 
de lignes en blocs. 
— Insertions dans la ligne d'édition. 
— le remplacement immédiat d’une 
ligne vide ou non par une autre ligne 
enregistrée dans un buffer ; 
— l'insertion de mots ou séries de 
mots à partir de la position du curseur ; 
—. à partir d’un buffer ; 
— par passage en mode insertion ; 
— le remplacement d’un caractère 
par un autre. 


e Insertions dans le texte 
Imaginons que le besoin se fasse sentir 


d'insérer un paragraphe de quatre 
lignes dans le texte entre, par exemple, 
la ligne 35 et la ligne 36 du texte actuel. 
Il faudra suivre la procédure suivante : 

— amener la ligne d'édition sur la 
ligne 35. En effet 10 insertions se font 
toujours après la ligne d'édition ; 

— appuyer sur [ctrl] + [shift] + [1] ; 

— un sous-menu apparaît qui 
demande combien de lignes insérer. 
Répondre en appuyant ll puis valider 
avec [enter]. L'insertion a alors lieu auto- 
matiquement. 


Après la ligne 35 du texte, les lignes 36, 
37, 38, 39 sont vides. L'ancienne ligne 
36 est devenue la ligne 40. Avant la 
ligne 35 la numérotation n’a pas changé, 
mais après elle a augmenté de quatre 
pour toutes les lignes du texte. 
Quelques remarques sont à faire : 

— les quatre dernières lignes du texte 
avant l'insertion, n’ayant pas pu pren- 
dre les valeurs 61, 62, 63, 64, ont, dans 
cette version de MISSIVE, été simple- 
ment supprimées. || faut donc bien étu- 
dier chaque cas d'insertion ; 

— un contrôle étant effectué, il est 
impossible de demander plus de lignes 
que n’en comporte le texte après la ligne 

‘édition. C’est une sécurité ; 

— une autre sécurité, appréciable, 
concerne la possibilité de ne pas insérer 
de lignes en répondant [0] ; 

— en se mettant en première ligne et 
en frappant [59], tout le texte est vidé, 
la page est blanche. Bonjour l’angois- 
se. 


+ Suppression de lignes en blocs 
Cette possibilité, l'inverse exacte de la 
précédente, fonctionne d’une manière 
analogue, mais ‘’compresse’’ le texte. 

— elle s'obtient par : 
[ctrl] + [shift] + F 

— des lignes vides sont ajoutées en fin 
de texte ; 

— les mêmes sécurités que pour l'in- 
sertion existent ; 

— ilest aussi possible de vider le texte 
par cette fonction ; 

— les lignes sont supprimées après la 
ligne d'édition. 


e Utilisation des buffers de ligne 

Ils sont au nombre de deux et permet- 
tent de conserver, pour les placer autant 
de fois que nécessaire dans le texte, des 
lignes élaborées une fois pour toutes. 
Cela s'avère très utile pour créer des for- 
mulaires, ou des documents complexes. 
— Remplir le premier buffer. 

— d’abord, élaborer sa ligne dans la 
ligne d'édition placée à une position 
quelconque ; 

— appuyer sur la touche [esc]. Elle est 
rouge donc repérable. Le bord de 
l'écran change de couleur. Cela indique 
que le menu des options spéciales a été 
activé ; 

— appuyer sur la touche [Q] ; 
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— toute la ligne est copiée en bloc, 
dans la fenêtre du bas en ligne A. 

Le menu des options spéciales se quitte 
automatiquement. 
— Reproduire le premier buffer. 

— d’abord placer l'éditeur de ligne à 
la position désirée ; 

— presser [esc] pour activer le menu 
d'options spéciales ; 

— presser la touche [W]; 

— toute la ligne entreposée dans le 
buffer est placée dans l'éditeur de ligne. 
— Effacer le premier buffer. 

— activer le menu des options 
spéciales ; 

— press la touche [E] ; 

— le buffer À est vidé. 

— Cas du second buffer. 

— pour le remplir : [esc] + [R] 

— pour le reproduire : [esc] + [T] 

— pour le vider : [esc] + [Y] 


+ Insertion de mots à partir d’un buffer 
Il est parfois utile de pouvoir, au cours 
de la rédaction d’un texte, éviter de réé- 
crire Un mot ou une expression qui re- 
vient souvent. || faut alors utiliser le buf- 
fer de mots. 

— Remplir le buffer de mots. 

— Etes [shift] + [ctrl] + [—]; 

— l'éditeur du buffer est activé en 
ligne 25. || apparaît en noir. Les fonc- 
tions [del] et [clr] sont disponibles ; 

— écrire le contenu à reproduire sou- 
vent puis valider avec [enter]. Le texte 
s'affiche à nouveau et le buffer de mots 
est recentré en ligne 25, son contenu est 
alors disponible. 

— Utiliser le buffer de mots. 

— placer le curseur de ligne à l’em- 
placement de la première lettre du mes- 
sage à reproduire ; 

— presser [shift] + Er + [-]; 

— tout le contenu du buffer est alors 
placé et le curseur de ligne se déplace 
à la fin du contenu reproduit. 


e Utilisation du mode insertion 

Le mode insertion est très important et 
demande à être bien connu. À la diffé- 
rence du mode d'écriture normal qui pro- 
cède par recouvrement, chaque carac- 
tère étant écrit à la position du curseur 
sans modification des autres, le mode 
insertion, plus farceur, permet d'écrire en 
déplaçant vers la fin de la ligne tout ce 
qui se trouve à la droite du curseur. 
— Obtenir et quitter le mode insertion. 

— il faut pour cela appuyer sur la tou- 
che [tab] ; 

— la première pression active le mode 
insertion ; 

— la seconde pression inhibe le mode 
insertion. 

— Signalement du mode insertion. 

— le mot ‘’INSERTION'’ est affiché 
sur la bordure supérieure du cadre de 
la fenêtre menu ; 

— toute action en mode insertion est 
signalée par bruit de sonnerie. 

— Utilisation du mode insertion. 
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Ouvert du lundi au samedi de 9 h 00 à 19 h 00 
En mars, NE ER 
Ouverture d'une UNITES CENTRALES à 


boutique _ 
sous mt | CPC 464 Mi: 1990 
ET CPC 464 C7" 2090 
UITS CPC 6128 M: 2990 
Sete CPC 6128 C:::°. 3990 
ANININIAN NZ 
GRATUITS NAVAVAVANZ 


* sauf promo 
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256 K SILICON DISK 990 CENTRONICS 150 
CABLE MAGNETO 70 


+ INTERFACES 
RS 232 


5 
ADAPTATEUR MP1 ts + GRAPHIQUE . VIDEO 
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MOUTEACEN Hs CRAYON OPTIQUE 464 DART 350 
* TELEMATIQUE CRAYON OPTIQUE 6128 DART : 690 
MODEM DTL 2000 1590 SCANNER DART 790 
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DISQUE FO1 1590 SYNTHETISEUR VOCAL 540 
DMP 2000 1690 SYNTHETISEUR MUSICAL 980 
+ CABLES CLAVIER MUSICAL 1350 
DOUBLEUR DIGITAL DRUM 370 
JOYSTICK 100 INTERFACE MIDI 500 


INC KZ 


see 
INZR PSI 

a LIBRAIRIE 
+ MICRO APPLICATION 
TRUCS ET ASTUCES 149 
PROGRAMMES BASIC 129 


AMSTRAD OUVRE TOI 99 102 PROGRAMMES 120 JEUX D'ACTION 58 
LA BIBLE AMSTRAD EN FAMILLE 120 1” PROGRAMME 108 


DU PROGRAMMEUR 249 CLEFS POUR PROGRAMMES 82 
LE LANGAGE AMSTRAD N° 140 PROGRAM 
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VA GRAPHISME ET SON 129 CPM PLUS 100  CP/MPLUS 148 
ZA PEEKS ET POKES 99 ASSEMBLEUR 105 CPM22 128 
UVRE DU BASIC 100  GUIDE 
ZA LECTEUR DISK 149 BASIC PLUS 100 DU GRAPHISME 108 
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LA BIBLE DU 6128 199 EN ASSEMBLEUR 145  GUIDE DU BASIC 128 
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+ EDUCATIF 


ALGEBRE 195/220 SAN 12e 
ÉQUATION TUER N'EST PAS RILOGY 89/139 
INEQUATION 195220 JOUER 96/139  STARRAIDER 95/145 
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ORTHOGRAPHE  195/220  D'ORVEN 95/139 WMZBALL 89139 
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ZA SUPER PAINT 390 AMES 95/139 
DR DRAW 649 GAME OVER 95/139 
AMX PAGE MAKER 600  MASQUE 95/139 
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ZA KYGAR 95/145 BLACK MAGC 95/139 
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GAUNTLET Il 145 CRAFTONXUNK  135/195 
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+ THUNDESCATS ..92/139 FLASH 139/195 
" SUPER SPRINT 145 INDIANA JONES 95/145 
E PHARAON 105158  XLLEDUNTE D 95/145 
S LAST MISSION 135/195 
an LIVE AMMO 119/189 
BIVOUAC 188  UVING STONE 135/195 
x MAG MAX 89/139 
È SOLOMON KEY. .95/139 Le 
= L'ANNEAU DE ZEN MAR 
A L'OMBRE 145195 
A GARAR 95/139 ie 
S TAI PAN 95/139 MANHATTAN 125, 
un ACADEMY 95/139 MASTER 
3 RENEGATE 95/139 OF UNIVERS 95/145 
Q PIRATES 95/139  MUTANTS 89/139 
a BLUE BERRY 95/139  MNJA 95/145 
ROBINSON PROHIBITION 120/195 
CRUSOE 95/139 QUARTE 95/145 
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— les fonctions [del] et [cir] font par- 
tie du mode insertion, elles seront décri- 
tes ultérieurement. 

— Admettons que nous ayons écrit : 

LE PETIT POIS VERT. 
et que nous voulions : 

LEs PETITS POISsons VERTSs. 

(Les lettres insérées sont en minuscules 
pour l'exemple) 
— Etapes à suivre : 

1) Amener le curseur sur le ‘’E’’ du 
LEZ: 

2) Frapper [tab], le mot [INSERTION] 
s'affiche. 

3) Frapper le 
— Avant : 

LE PETIT POIS VERT. 


près : 
LEs PETIT POIS VERT. 
4) Appuyer sur [—] pour se poser sur 
LCA A de ‘#PETIT'’ 
5) Frapper le ,on a: 
LEs PETITS POIS VERT. 

6) Appuyer sur [—] pour se poser sur 
AC de ‘’POIS'’ 

7) Frapper calmement ‘’s’’,/‘0’’,''n 
!s!" soit ‘’sons’” ce qui donne successive- 
ment : 

LEs PETITS POIS VERT. 

LEs PETITS POISs VERT. 
LEs PETITS POISso VERT. 
LEs PETITS POISson VERT. 
LEs PETITS POISsons VERT. 
et ainsi de suite. 

— Remarques importantes. 

— Chacun sait qu'ils sont rouges et 
qu'en plus il faut mettre un ‘’s’”’ au 
VERT”. 

— ATTENTION : 

Ne pas oublier de frapper [tab] à nou- 
veau quand l'insertion est terminée pour 
quitter ce mode. 

— Utilisation pour la PRESENTATION. 
1) Cette fonction d'insertion est très utile 
aussi pour déplacer une chaîne entière 
vers la droite, en particulier pour mettre 
au point une présentation. 

— 1 suffit de se poser sur un blanc à 

droite de la chaîne et d'insérer des espa- 
ces en frappant la barre d'espace. 
2) L'effet inverse, le décalage d'une 
chaîne vers la gauche s'obtient en se 
posant à gauche de la chaîne et en frap- 
pant lentement la touche [cri]. 

— Le caractère situé à l'emplacement 
du curseur est avalé et toute la chaîne 
décalée d’un cran vers la droite. 


OPERATIONS 
D'EFFACEMENT 


!!s'' il s'insère. 


Hiert 
s 
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Les opérations d’effacement compren- 
nent : 

— Effacement du texte. 

— Effacement de la ligne. 

— Effacement dans la ligne. 


e Effacement du texte 
Il existe trois manières de procéder, les 
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deux premières, déjà vues, consistent à 
— Se poser en première ligne vide : 
1) demander à insérer 59 lignes [ctrl] 
+ [shift] + [1] 

2) demander à enlever 59 lignes [ctrl] 
+ [shift] + [1] 

La manière ‘’normale’’ s'obtient à par- 
tir du menu des options spéciales : 

A) appuyer sur ose] la bordure de 
l'écran change de couleur indiquant que 
le menu des options spéciales est activé. 
B) Une demande s'affiche en bas de 
texte : 

— répondre ‘’oui’’ à la 1° demande 
puis encore ‘’oui’’ pour confirmer. 

C) Le texte est alors totalement effacé. 


11e 
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e Effacement de la ligne d'édition 

Là encore, deux méthodes : 

1) La première consiste à remplacer la 

ligne en cours par une ligne de BUFFER. 

- Activer le menu des options spéciales. 

- Appuyer sur [W] ou Î 

La Es est remplacée par le contenu de 

la ligne À ou de la ligne B. 

2) La seconde, ‘’normale’’ consiste à 

presser simultanément les touches [shift] 

et [tab]. 

La ligne est aussitôt effacée. 

+ Effacement dans la ligne d'édition 

Ce sont les plus courants : 

!! La touche [CLR] 

Elle est bien connue puisque dans ‘’MIS- 

SIVE’’, elle a les mêmes effets que dans 

l'éditeur du CPC. Elle permet d'effacer 

un caractère à l'emplacement du curseur 

avec serrage de la chaîne. 

ATTENTION : dans ‘’MISSIVE’’, elle 

est d’un effet plus lent, il convient, bien 

qu'elle soit à répétition, de la manipu- 

ler lentement et parfois d'insister. 

Elle fonctionne en mode normal et en 

mode insertion. 

2) La touche [DEL] 

De fonctionnement analogue à celle de 

l'éditeur du CPC, elle permet de rempla- 

cer par un blanc le caractère situé à gau- 

che du curseur sans serrage de la chaîne. 

3) La [BARRE ESPACE] 

Tout caractère situé à droite du curseur 

est remplacé par un point. C'est l'effet 

inverse de la touche (pet) 

4) La [TOUCHE QUELCONQUE] 

Appuyer sur une touche quelconque 

représentant une lettre ou un chiffre per- 

met de remplacer le caractère situé à la 
lace du curseur par ce chiffre ou cette 

Line. (Au fait... c'est comme ça qu’on 

écrit…l). 

5) L’effacement par [CTRL]+[-] 

Appuyer simultanément sur ces deux tou- 

ches et tout ce qui se trouve à droite du 

curseur dans la ligne est effacé. 

6) L'effacement par [CTRL]+[-—] 

L'effet est inverse et tout ce qui se trouve 

à gauche du curseur est effacé. 

7) Utilisation du [BUFFER DE LIGNE] 
A) pour ouvrir ce buffer, appuyer sur 

[CTRL]+[SHIFT]+[-—] 


B) le remplir de blancs en appuyant sur 
la barre espace en comptant le nombre 
de fois (5 pour un espace de 5) ou 


are la sonnerie pour avoir tout le 
uffer. 

C) valider par [enter] 

D) poser le curseur au début de la 
zone à effacer. 

E) appuyer sur la suite de touches 
is [SHIFT]+[-—] et il s'insère dans 
a chaîne un bel espace vide sans aucun 
point. 


OPERATIONS D'IMPRESSION 


Elles se décomposent en commandes 
directes et indirectes et se caractérisent 
par une utilisation intensive du menu des 
options spéciales. 


e Commandes directes 

Accessibles directement en mode RE- 
DACTION, elles permettent d'intervenir 
de façon très souple sur le document 
inséré dans l'imprimante. Ces possibili- 
tés du mode rédaction accroissent con- 
sidérablement les applications de 
!’MISSIVE"’’. 

Elles permettent en particulier d'utiliser 
ce logiciel pour : 

— intervenir en des points précis de 
documents par ailleurs constitués, pour 
légender une photocopie par exemple ; 
— TRANSFORMER véritablement le 
CPC en MACHINE A ECRIRE sophisti- 
quée pour la rédaction directe, mais 
avec toutes les garanties souhaitables, 
de documents aussi longs qu'on le désire. 


1) Initialisation directe de l'imprimante. 
Taper [ESC] puis la touche [COPY]. 


L'imprimante se réinitialise avec saut de 


ligne. 
2) Mode impression directe. 

Dans ce mode, toute ligne que l’on 
quitte est imprimée. 

à Passer en mode ‘’impression’”. 

- AperEs et suivi de la touche [I]. 

- Sur la dernière ligne de l'écran s'at- 
fiche deux fois le mot ‘IMPRESSION’. 

B) Utiliser le mode impression. 

- C'est par lui que les possibilités évo- 
quées plus haut sont mises en œuvre. Il 
est possible : 

- d'imprimer ligne après ligne ; 

- d'imprimer successivement les 
lignes non consécutives d’un texte affi- 
ché en mode rédaction. (Pour cela, se 
mettre sur la ligne à imprimer, passer en 
‘‘impression’’, quitter la ligne en descen- 
dant ou montant, quitter aussitôt le mode 
impression, se poser sur l’autre ligne à 
imprimer, passer en ‘’impression’”, etc.) ; 

- exercice : imprimer un texte à l’en- 
vers, de la dernière à la première ligne. 

C) Quitter le mode impression. 

- Ne pas se laisser impressionner, il 
suffit simplement de taper [ESC] suivi de 
la touche [O]. 

3) Impression d'une ligne hors mode 
impression. 
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C'est une facilité permettant d'imprimer 
une ligne isolée sans avoir à passer en 
mode impression. Cela peut être plus 
souple pour certains travaux. 
La commande est la suivante : 
[ESC] suivi de [P]. 

l Récapitulons : Impression directe — 


[ESC] + fi], [OL [P]. 


+ Commandes différées 
Elles permettent, à la rédaction d’un 
document, d'insérer dans celui-ci des 
codes de contrôle, invisibles à l’impres- 
sion, mais qui commanderont l’impri- 
mante, une Mannesman MT.80 dans le 
cas standard. 
Ces codes de contrôles apparaissent 
sous la forme de caractères graphiques 
obtenus à partir du menu EM options 
spéciales. Ils ne produiront d'effet que 
lors de l'impression obtenue à partir du 
menu principal. 
1) Mode condensé 

- Pour l'obtenir, taper [ESC] puis [1] 
Cela donne le stop 


taper 


- Pour l’annuler, taper [ESC] + [2] 
On obtient le caractère [ ] CONDENSE 
2) Mode large 

- Activer : [Es 


- Annuler : LES) RE l LARGE 


L'attention est attirée sur le fait que ces 
commandes agissent aussi lors de l’affi- 
chage sur écran obtenu lors de la com- 
mande d'impression du menu principal. 
Il'est impératif que le passage à afficher 
dans ce mode ne dépasse pas 35 carac- 
tères comptés à partir du début de la 
ligne. Sinon. 


3) Mode renforcé 
- Activer : ed + F] —[] 
- Annuler de ]+{6]-[] 
RENFORCE 
4) Mode souligné 
- Activer : [E d + 1] — [] 
ARE ]+[8-[] 
SOULIGN 
5) Mode serré 
- Activer : cl + GI —-[ ] 
- Annuler : [ESC] + [0] — [ ] 
6) Mode double frappe 
VAR 6 Ed * Ü n [ , 
- Annuler : [E + — 
DOUBLE RE 
7) Commande de réinitialisation de l’im- 
primante 
pa" s'obtient en frappant [ESC] puis 


ATTENTION 

Toute commande différée doit être sui- 
vie de son annulation en fin de ligne, 
quitte à la reprendre en début de la sui- 
vante. || est indispensable de respecter 
cette petite règle pour éviter des déboi- 
res. 


Ces commandes sont contenues dans un 
fichier appelé ‘'REDEFCAR"’" séparé de 
la liste principale du logiciel et qu'il est 
facile de modifier pour adapter ‘’MIS- 
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SIVE”” à d'autres imprimantes. Se pen- 
cher pour cela sur les articles de M. 
Archambault parus dans CPC. 


+ Le double jeu 
des caractères graphiques 


Nous venons de voir comment obtenir 
des caractères redéfinis que nous ne 
pourrons pas voir puisqu'il servent de 
codes de contrôle pour l'imprimante. 
Mais, pour composer de belles pages- 
écrans {non imprimables), on peut obte- 
nir un autre jeu de caractères graphi- 
ques. Pour cela : 

- Activer : [ESC] + nl 

- Annuler : [ESC] + [J] ,encore... La 
commande bascule entre les deux jeux 
de douze. 


e Les caractères accentués 

Ils constituent une des grandes qualités 
de ‘’MISSIVE’’ et sont accessibles sur le 
pavé numérique. On en dispose ensuite 
à l’écran ou à l'impression. En voici la 
liste : 


1] — fè 
21e 
3] — [6 
4] — lé 
5] — fi 
6) — fi 
7] — fé 
8] — [ü 
9] — [ù 
0] — fé 
] — fé] 
ENTER] [à] 


Ils sont, eux aussi, programmés dans le 
fichier REDEFCAR.ASC et donc modifia- 
bles ou adaptables pour d'autres impri- 
mantes selon les besoins. 


e L'inversion vidéo 

Aucun luxe n'étant refusé à l'utilisateur, 
il est possible d'obtenir l’inversion vidéo 
à partir du menu des options spéciales 
p* la commande à bascule [ESC] puis 


+ Quitter le programme 

de manière polie 
La commande [break] étant inactivée, il 
peut être utile de savoir qu'en mode 
rédaction, le programme se quitte à par- 
tir du menu des options spéciales par la 
commande [ESC] puis [S]top… 
Le programme demande alors le nom du 
texte en cours pour sauvegarder. 


+ Quitter le programme de façon 
impolie et revenir ensuite 

Lorsque le programme demande le nom 

du texte, répondre en tapant [ESC]. 

Le programme s'arrête a Si oi R]. 

Pour revenir, frapper : GOTO 55. 

Le programme repart au début sans 

perte de fichier. Cela peut s'avérer 

utile. 


VISUALISATION 
DU TEXTE 


Il ve ici d'extensions particulières de 


ossibilités par ailleurs comprises dans 
e mode édition, c’est-à-dire : 
— la visualisation sur écran ; 
— la visualisation sur papier ou impres- 
sion. 
Ces possibilités sont atteintes à partir du 
menu général en frappant la touche 
[Mlisualisation. 


Acces 


D'emblée s'affiche un menu. La numéro- 
tation indique ici l’ordre de la pose des 
questions. 

1) IMPRESSION SUR ECRAN 

2) EDITER SUR PAPIER 

3) DEPART --- DEFILEMENT 

4) ARRIVEE --- DEFILEMENT 


Ilexiste une option automatique obtenue 
en frappant quatre [ENTER 

- Question 1 : réponse OUI 

- Question 2 : réponse NON 

- Question 3 : réponse -01- 

- Question 4 : réponse -60- 

Nous avons dans ce cas un affichage de 
la totalité du texte à l'écran. 


En frappant une touche quelconque : 
- Question 1 : réponse NON 

- Question 2 : réponse OUI 

Nous avons dans ce cas un accès à l’im- 
primante… 

Les questions 3 et 4 appellent des chif- 
fres. Grâce à elles, il est possible de choi- 
sir le passage du texte à imprimer ou à 
visualiser. 


Des sécurités prennent en compte les 
demandes incohérentes et obligent à 
donner un nombre de départ inférieur au 
nombre d'arrivée. (Pour les impressions 
inversées de texte en direction des anti- 
podes, voir le passage concernant le 
sous-mode impression du mode édition). 
Il est par contre possible d'obtenir à la 
fois l'affichage sur écran et l'impression 
sur papier. Ne demander ni l’un ni l’au- 
tre renvoie au menu. 


IMPRESSION SUR ECRAN 


Lorsque cette option est activée, l'écran 
se vide totalement et le texte apparaît 
ligne par ligne SANS LES POINTS. 
Cela donne une bonne idée du texte tel 
qu'il sera sur papier. Les caractères gra- 
phiques du second jeu sont affichés, ce 
qui permet d'accompagner le texte et de 
créer de belles pages. (Attention à l’im- 
pression.) . 

La relative lenteur de l'affichage est com- 
pensée par le grand intérêt pédagogi- 
que que représente ce mode d'affichage. 
La lecture du texte en est facilitée pour 
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des enfants. En particulier, les mots situés 
dans une zone délimitée par les codes 
d'élargissement seront affichés comme 
en mode 1 simultanément avec le reste 
de l'affichage fait en mode 2. 

Si l'affichage se fait ligne à ligne, il se 
fait aussi page par page. À la Fin d'une 
page, l'affichage s'arrête pour lecture et 
relecture. Puis, après avoir frappé plu- 
sieurs fois la barre d'espace, il reprend 
sk décalant ligne à ligne le texte vers le 

aut. 


IMPRESSION SUR PAPIER 


Les possibilités de l'impression ont été 
largement détaillées dans le chapitre 
concernant le sous-mode impression du 
mode édition. Il suffira de rappeler ici 
qu'elle est prévue sur MT.80 dont les 
possibilités sont utilisées grâce à des 
caractères de contrôle avec les modes 
ELITE ou PICA. 


LA GESTION DES 
FICHIERS-DISQUE 


Grâce aux possibilités offertes par 
l’Amsdos, le logiciel ‘’MISSIVE’’ permet 
d'intervenir sur la gestion du disque. Il 
est possible d'obtenir directement le 
catalogue des fichiers et, après choix, de 
les supprimer ou de les renommer. Le 
choix des noms de fichiers pour la sau- 
vegarde ou le chargement peut se faire 
avec le catalogue sous les yeux, ce qui 
est bien pratique. 

La sauvegarde automatique et régulière 
du texte en cours d'élaboration, les mes- 
sages qui accompagnent les opérations 
pouvant entraîner un effacement involon- 
taire du texte sont autant de précieuses 
possibilités. 


ACCES SUR LE DISQUE 


1) Accès 

C'est une option du menu général, acces- 
sible en pressant la touche [A], il faudra 
donc, pour y arriver à partir du mode 
EDITION”, avoir frappé au préalable 
la touche [ENTER] pour retrouver le 
menu général. 

2) D'emblée, un test est opéré pour 
savoir si une disquette est en place et si 
elle est protégée. Les messages s’affi- 
chent sur la fenêtre du bas de l'écran. 
Après avoir effectué, si nécessaire, les 
manipulations permettant de lire la 
bonne face de la bonne disquette, il suf- 
fit de presser une touche. 

3) La fenêtre principale s’efface alors et 


le catalogue du disque s'affiche pour : 


consultation. 
4) Celle-ci terminée, l'appui d’une tou- 
che fait apparaître en dessous du cata- 
logue les messages suivants : 
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Deux cas se présentent : 

A) On ne désire effectuer aucune opé- 
ration sur fichier. 

Il suffit de taper [ENTER] deux fois pour 
retourner au menu général. 

B) On désire effacer ou renommer un 
fichier. 

- D'abord écrire le nom du fichier choisi 
avec son extension et le point. || est pos- 
sible d'utiliser [DEL] et [CLR], mais pas 


les touches fléchées si l’on désire corri- 


ger. 
- Valider avec [ENTER] 

- Recommencer l'opération après la 
demande de confirmation et valider avec 
JENTERE Le nom s'affiche une seconde 
ois en dessous. 

- Siles deux noms ne sont pas identiques, 
l'opération recommence et cela peut 
durer longtemps. 

- Si les noms sont identiques, s'affiche le 
message suivant : 


— IDENTIQU.MIS 

EFFACER [E] RENOMMER TR] 

— IDENTIQU.MIS 
- L'appui sur [E] déclenche un effaçage 
immédiat du fichier choisi. Le catalogue 
s'affiche à nouveau et tout peu recom- 
mencer, sauf si MISSIVE vient de se faire 
hara-kiri.. Restez calme. 
- L'appui sur [R] entraîne le message sui- 
vant : 


- Ilne vous reste plus qu’à saisir le nou- 
veau nom, avec confirmation et, après 
avoir validé deux noms identiques, 
l'opération a lieu, l'écran s’efface et le 
nouveau catalogue s'affiche à nouveau. 
- Vous pouvez alors continuer ainsi et 
renommer ou effacer tous les fichiers de 
la disquette. 

- Quand vous avez fini, rappelons que 
deux [ENTER] ramènent au menu géné- 
ral après un affichage de catalogue. 


SAUVER LE FICHIER 


1) Accès 

C'est une option du menu général obte- 
nue avec la touche [S]. Sortant d'une 
opération d'affichage du catalogue, il 
est à noter que celui-ci reste marqué sur 
l'écran, ce qui permet de choisir le nom 
du texte en toute connaissance de cause. 
2) Après avoir écrit le nom du fichier, 
sans son extension donnée automatique- 
ment par le logiciel (.MIS), il faudra 
frapper trois fois sur [ENTER] et la che- 
villette cherra… 

3) Le retour au menu général sera auto- 
matique. 


Il existe un certain nombre de cas où a 
lieu une sauvegarde automatique : 

A) Toutes les cinq minutes, le texte en 
cours de saisie est sauvé sous le nom de 
‘’SAUVEGAR.MIS"’. La version précé- 
dente répondant alors au doux nom de 
!’SAUVEGAR.BAK'’. Il faudra donc 
garder 10 Ko sur la disquette pour ces 
deux fichiers. 

B) Si vous quittez le programme en 
mode rédaction par les touches [ESC] 


puis [S]. 


Il existe un certain nombre de cas où a 
lieu une sauvegarde avec choix du nom 
hors du cas standard. 

A) Si, en menu général, le programme 
est quitté par la frappe de la touche 
[Flin. 

B) S'il existe un texte dans la mémoire 
et qu’une demande se fait pour en intro- 
duire un autre. 


INTRODUIRE LE TEXTE 


1) Accès 

C'est une option du menu général don- 
née par la touche [T]. Elle comporte une 
sécurité, évoquée plus haut, qui n’est 
activée que si la mémoire de texte n’est 
pas vide. 

Dans ce cas, un message s'affiche 
demandant s'il est souhaitable de sau- 
vegarder le texte. Si l’on répond ‘'OUl' 
deux fois (avec confirmation), le nom du 
texte à sauvegarder est demandé et 
après réponse, la sauvegarde a lieu. 
Répondre ‘NON’ amène directement 
à la saisie du nom du texte à introduire. 
2) Un message s'affiche demandant le 
nom du texte à charger. La démarche de 
saisie est identique aux précédentes. 
Frapper [ENTER] trois fois et le texte 
demandé se charge, avec affichage 
automatique de la première page. Le 
retour au menu général est automatique. 


Pour éviter tout risque de demande d’un 
fichier absent, il est bon, au préalable 
d’avoir demandé le catalogue. En cas de 
message d'erreur, un GOTO 55 relan- 
cera le programme sans perte de fichier. 


REMARQUE 


Qu'il s'agisse des options CATALOGUE, 

CHARGEMENT, ou SAUVEGARDE, 

après frappe de la touche adéquate à 
artir du menu général : 

A] ACCES SUR LE DISQUE 

T] INTRODUIRE LE TEXTE 

S] SAUVEGARDER LE TEXTE 

un test de présence et de protection de 

disquettes est toujours déclenché. C'est 

une sécurité de plus. 

La frappe de la touche [ESC] à la place 

d'un nom de fichier, puis la validation 

par [ENTER] provoque une sortie du 

programme. 
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ANNEXE POUR LA 
VERSION CASSETTE 


MISSIVE ayant été conçu sur CPC 464 
peut tourner sans problème dans la ver- 
sion de base de l'appareil. 

La constitution d’une version cassette se 
fera sans modification directe du pro- 
gramme principal, ce qui facilitera un 
passage ultérieur sur disquettes. 

La modification se fait sur le programme 
DELETE.ASC dont la version est diffé- 
rente pour l’utilisation cassette ET QUI 
REMPLACE, en des points stratégiques, 
certaines lignes du programme principal. 
Attention à la saisie, les espaces doivent 
être identiques sur les messages du 
menu, ligne 220. 


10 COPYRIGHTS GEURGES HECKER ### BESLE SUR VILAINE :L4 
#*#+ 12 DECEMBRE 87 

15 REDEPART GOTO 55 SAVE "RS ?LF 
KMODES",8,41507, 192 

18 : AJ 
20 SYMBOL AFTER 126 2NG 
25 MEMORY 41506 :BE 
20 GOSUB £5:FOÛR bk=1 TD ZO0:NEXT IC 
25 CHAIN MERGE"REDEFCAR, ASC", 40 #AL 
40 GOSUB 10000:FOR bk=1 TO ZU0:NEXT :EH 
45 CHAIN MERGE"DELETE,ASC",50,DELETE 10000- :LH 
90 DIM 5p(75):DIM m$té0):buf$(1)=STRINGE(75,CHR$ (157): WF 
buf$(2}=buf$(1):k$=STRINGS (90, CHR$ (233) ): FOR 1=1 TO 60: 
m$(1)=STRINGS (75. CHR$ (157) ):NEXT : 

55 GOSUE 95:60SUE 285 -UA 
EG CALL SBB4B:RESTORE: ON ERROR GOTO Z7B0:EVERY 13000,7 VF 
GOSUE 2436:50T0 210 

63 OFENOUT"EUFFER" FT 
70 MEMORY HIMEM-1 ME. 
73 CLOSEOUT ‘LE 
80 GÜSUE 7900:CALL 41507 2RÈ 
85 DIM #$(45: :EÀ 
90 RETURN :TH 
95 MODE 2:BORDER 10: IN 0,0: INE 1,18: CLS :GM 
100 WINDOH#2,. 1,80, 1.25: PAPERKZ, 1: PEN#2, 0: CLS#2 :GD 
105 WINDOW#O, 2, 79,22, 25: PAFERKO, 1 : PEN#O, 0: CLS#0 FH 
110 WINDOW#1.2,79,2,21:FAFER#1,0:PEN#1. 1:CLS#1 :06 
115 GOSUE 120:G0SUE 150:GO0SUB 170:RETURN #ÎT 
120 FOR 1=1 TO 25 :CE 
125 LOCATE#Z, 1.1: PRINT#2,CHR$# (2323) : :LOCATE#2,80,1:FRINT :UX 
#2,CHR$ (233) : 

30 NEXT :i 2NC 
33 LOCATE#2, 1,1: FRINT#2, STRINGS (85, CHR$ (233) : : :RM 
140 LOCATE#2,33, L:PRINT#2,"5: MISSIVES <<" ?LH 
142 LOCATE #2,1,1:PRINT #2,"23P<< "a: LOCATE #2,76,1:PRINT MU 
#2, "roP£e" 

145 RETURN >1F 
150 CLS :U8 
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155 LOCATE#O. :.4: PRINT#O.CHRS (24) :STRING#(78,.CHR$ (273): :NM 
:CHR$ (24): 
180 LOCATE#O, 1. 1: FPRINT#O,CHRS (24) : STRING (79,CHR# (233): :MD 


: CHR# (24) 

155 RETURN in 
ifÿ CLS#i EL 
175 FOR 1=1 T0 20 C5 
180 LOCATE#I,1,1:FRINT#1,USING"##": 1 *EA 
185 LOCATE#1.3,1:PRINT#1.CHR# (247) :CF 
190 LOCATE#1,4,1:PRINT#1,STRINGS (75, CHR# (157): 5RÀ 
195 NEXT 1 :FD 
200 RETURN :th 
295 GOSUE 150 #HC 
210 LOCATE 2,2:PRINT CHR$(7):EI ;Ë 
215 LOCATE 2,2 :PG 


229 FRINT'INTRODUIRE LE TEXTE ";CHR#(Z4):"-T-";CHR$ (24 >HM 
5" REDIGER LE TEXTE ":CHR$(24):"-R-";CHR$(Z4):" 

ACCES SUR LE DISQUE “:CHR$(24)5"-A-": CHR (24): 

223 LOCATE 2,3 :FJ 
230 PRINT'SAUVEGARDER LE TEXTE “;CHR$(24):"-G-":CHR# (24 JM 
3"  VISUALISER LE TEXTE ";CHR$(Z4):"-V-":CHR$ (24: " 
AZERTY £--; GMERTY “;CHR$(24):"-C-":CHR# (24): 


215 c$=INKEYS$:HHILE c$="":G0TD 275:WEND :HR 
240 c$=UFFERS (c$) LL 
245 IF INSTR("TRASVCFEF".c$)=0 THEN GOTO 275 :MH 


250 h=-(c$="T"}-Z4 (ct Rte (c$=" A") -4#(c$="S")-Sx(c$z MI 
"M -64 (c$="C")-7#(c$="P")-BR (C2 UE") -0# (c$="F") 
255 ON h GOSUE 295,565, 2345,495, 1945, 2260,3000, 4000,555 :W] 


280 LOCATE 2,.2:FRINT CHR$(7):G0T0 210 :EN 
265 LOCATE 5,2 :QE 
270 PRINT CHR$(Z4): "FOUR  FOUVOIR CONTINUER DONN :MT 
EZ LE MOT DE PASSE  “:CHR# (24) 

275 LOCATE 30,3:PRINT CHR$ (24) :STRINGS# (18,CHR$ 1233) ): CH HD 
F#$(24) 

280 f=0iw=21: 527: x=24:b=-1: 1=12: PEN#O. 1: GOSUB 1705:PEN# :EF 


0,0 

285 IF t$:>"LITTERATURE “THEN GOTO 27 26F 
290 PRINT CHR$ (7) : : RETURN 54H 
295 DI:G0SUB 240 ;LR 
29% r=0 “06 
297 FOR i=1 T0 60 >DF 
298 IF n$ii) © STRINGS(75,CHR$(197)) THEN r=-1 M] 
299 NEXT i °PJ 
300 IF r THEN GOSUB 295 ELSE GOSUE 150 :DE 
305 LOCATE 12.2:FRINT CHR$(24): »Y 


319 PRINT"DONNEZ LE NOM D TEXTE À >AE 


CHARGER" : CHR$ (24) 


315 LOCATE 20,3:PRINT SFACES (45) >AF 
320 +=0iw=35:5=3: x=24:b=-1: 1=8: GOSUÛB 1705 JF 


325 W$=MIDS(t$,1,8) :w$=w$+". MIS":LOCATE 2,2:PRINT CHR$( :DH 


330 OPENIN w$ WG 
325 FOR i=i TO 40 >CJ 
340 INPUTH9.n$ ti} :MD 
345 NEXT i ;PA 
350 CLOSEIN >EK 
252 ah=1:G0SUE 650 ME 

25 


355 RETURN ya 
366 FOR bEk=1 TO 1000:NEXT:GOSUB 150 CU 
365 LOCATE 3,2:PRINT CHR$(24): "LECTEUR DE DISQUETTES":; :MW 
CHR$ (34) 
370 LOCATE 3,23:PRINT CHR$(24); "PREPAREZ LA DISQUETTE!": MA 
CHR$ (24) 
375 LOCATE 29,2:FRINT CHR$(24):"INSEREZ LA DANS LE DDI" NC 
:CHR$ (24) 
380 GOSUB 188 20E 
385 IF NOT tds THEN GOTD 265 NV] 
390 RETURN :2H 
395 GOSUE 150 JC 
400 LOCATE 20.Z2:PRINT CHR# (24): "DESIREZ VOUS SAUVEGARDE :LF 
FR VOTRE TEXTE": CHARS (24) | 
405 LOCATE 33,3:PRINT'OUI "iCHR$ (24); "-7- "CHR (24: N DE 
où" 
410 f=0iw=37:s=3:x=24:b=-1:1=2:GOSUE 420 :H5 
415 IF t$="OUI"THEN GOSUE 495:G60SUB 1S0:RETURN ELSE RET EN 
URN 
420 k=1 3NE 
423 HHILE ki=E UE 
30 GOSUB 1705 GB 
435 IF t$<>"NON"AND t#:;"OUI"THEN GOTD 435 J2 
440 k=k+1:LOCATE 33,1:PRINT CHR$(24):" CONFIRMER ";CHR$ GE 
(24: 
445 WEND :DB 
450 LOCATE 33,1:PRINT CHRS (24) :STRINGS (11,CHR$& (233) ) ;CH HR 
R$ (24) 
455 RETURN #1 
460 LOCATE 33,4:PRINT'OUI ";CHR# (245-533 CHR# (24) 3" N :DG 
ON" 
4bS j=w:q=f:ag=stae=]q: xx=x YF 
470 f=diw=37:s=4:x=24:b=-1:]=3:GOSUE 420 :JF 
475 ap=0:1F t$<;"OUI"THEN ap=-{:G0T0 490 :HM 
4806 FOR 1=1 TO 60:m$ (1) =STRING#(75,CHR$ (157): NEXT 1:k$ >DD 
=STRINGS (50, CHR$ (233) ) 
495 e=-3:G60SÛB 1185:e=3:G0SUE 1170 ?EV 
490 GOSUB 150: f=qiw=3:s=ag: lq=ae: «=xx:G0SUB 650:m=0:RET HR 
URN 
495 DI:GOSUB 150 Là 
300 LOCATE 12,2:FRINT CHR$(24); :YD 
905 PRINT'DONNEZ LE NOM DU TEXTE À *CE 
SAUVEGARDER"; CHR$ (24) 
910 LOCATE 20,3:PRINT SFACES$ (40) AL 
319 f=0iw=35:s=3:x=24:b=-1:1=6: GOSUB 1705 #£D 
920 w$=t$+",.MIS':LOCATE 2,2:PRINT CHR$(7) 5: CALL SBBIS:C ET 
ALL &BB18 
923 OPENOUT w$ AC 
930 FOR i=i TO 60 >CF 
33 PRINT#9,m$ (1) :MG 
340 NEXT i ?NH 
345 CLOSEOUT TE 
390 RETURN ?2F 
999 i=10000:DI:GOSUB 2430:E1:GO0SUB 2455:CLS#1: :MODEZ:L GW 


OCATE#1, 16,5:PRINT#1 , "TERMINE": IMODE22:LOCATE 1,2: PRINT 
STRINGS (77,CHR$(197))::LOCATE 1,3:PRINT STRINGS (77, CHR 
#(197));:LOCATE 35, 1:PRINT CHRS (24) : STRINGS (12, CHR (23 
}):CHR$ (24) 
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A 


Séû LOCATE 1,2:END 

J65 DI:GOSUE 150:EI 

9/70 LOCATE 3,2 

975 PRINT CHR#(24):% NUMERO DE LA FAGE 

HR$ (24) 

980 LOCATE 45,2 

585 PRINT CHR#(24)3;" NUMERO DE LA LIGNE CHOISIE "ic 

HR$ (24) 

990 LOCATE 4,3 

999 PRINT CHR# (SA) "1 CHRE (24) 3" 
=": CHR$ (24) 5" M CHR# (24) "3" CHRE (24) 3" SR 

HR$ (24) 3 "3 CHRS (24): 

&0û LOCATE 48,3 

605 PRINT CHR$(24):;"-01-":CHR#(E4) 5" 

-73-":CHR$ (24): " “aCHR$S (24): "-20- "3 CHR (24) 

610 f=0iw=32:5=23: x=24:b=0: 14$="#":1=1:GOSÛUB 1705 


CHOISIE “iC 


615 IF VAL(t$)<1 OR VALIE#)>3 THEN LOCATE £,Z:FRINT CHR : 


$(7):G0T0 610 
820 pa=VAL ITS) :an=(ipa-t)#x20)+1 
B2S f=0riwsbüis=2: x=24:b=0: 14="##": 122: GOSÛUE 1705 


he à ma 1 OR VALIt#1:20 THEN LOCATE 2, 2:FRINT CH : 


ARTE 


535 pe 
640 +=l:w=4:ak=7 
645 RETURN 

&5û CLS#i 

655 FOR 1=i TO Zÿ 


Stx=24: GOSUB 190:G0SUB 650: GOSUE 895 


bb LOCATE#1,1,1:PRINT#I ,USING"##"; 1+(ah-1) 

665 LOCATE#1,3,1:PRINT#1,CHR# (243) 

670 LOCATE#1,4,i:PRINT#1,m$(i+(ah-1)!; 

673 NEXT 1 

#80 LOCATE 2,2:PRINT"A-":buf$ (1); :LOCATE Z,3:PRINT"E-"; 
puf$ (2); 

683 RETURN 

690 1=0 

ë95 po=i 

700 m=-1:al=0:rec=û:ret=0:stp=û:y=û: fi=0:sup=Üta=0iezû: : 
aa=Ù 

705 IF ay THEN LOCATE 2,4:PRINT'IMPRESSION":LOCATE 68,4 : 
: PRINT "IMPRESSION" 

710 po$=CHR$# (22) +CHR$ C1) +CHRS (24) +CHRS (95) +CHR$ (24) +CHR 


$(22)+CHR$ (0) 

715 s=lgt(ah-i) 

720 LOCATE#?,1,1q:PRINTHS,USING"##";s 
725 LOCATE##,N,1gq 

230 PRINTHE,CHRS (ui sms): CHR$ x) s 
735 LOCATE#f, (w-1)+(po-i),ig 

740 PRINT#,po$ 

745 HHILE a 
746 ap=Ù 

750 qtt=S0-INT (LEN(K#) )sqtt=qtt/2 
HRS$ (24): STRINGS (qtt, CHR$ (22.5) } 3 k$: STRINGS (qtt, CHR$ (232) 
}: CHR$ (24) 

755 IF po;é7 THEN LOCATE 2,2:PRINT CHR$(7); 

760 rep$=INKEY$: IF rep$<>""THEN GOTO 760 

765 rep$=INKEYS$:HHILE rep$="":60TO 765:HENL 

770 IF(ASC(rep$) 64 AND ASC (rep$)<123) THEN vit=-{:G0TO 
1100 ELSE vit=0 


“CHARS (24) 5-2 


“sCHR$ (24) 5" 


:LOCATE#O, 15,4: PRINT c) ; 


ER 


?ÀE 


>N4 
>TD 
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772 GOSUB 1030: IF (ASC (rep$) :127 AND ASC(rep$){140)THEN JD 1010 IF INKEY(27)=0 THEN n=5:c=5:60SUB 2205 LC 
vits-1:60T0 1100 ELSE vit=0 1015 IF INKEY(35)=0 THEN ay=-1:LOCATE 2,4:PRINT"IMPRESS CZ 
775 IF INKEY(66)=0 THEN rep$="ESC":GOSUB 902:1F ap THEN :ED ION':LOCATE 68, 4: PRINT" IMPRESSION" 

GOTO 695 ELSE 60TO 1100 1020 IF INKEY(9)=0 THEN PRINTHS:PRINT#S, CHRS (27) :CHR$ (6 CB 
780 IF rep$=CHR$ (59) THEN rep$=CHR$ (154) :G0T0 1100 TL 4) 

ES IF rep$=CHR$ (34) THEN rep$=CHR$ (155) :G0TO 1106 TE 1025 IF INKEY(45)=0 THEN z=2+20:IF 2=40 THEN z=0 FE 
790 IF rep$=CHR$ (44) THEN rep$=CHR$ (156) :G0TO 1100 »TH 1027 IF INKEY(43)=0 THEN rep$=CHR$ (153) >FZ 
795 IF rep$=CHR$ (22) THEN rep$=CHR$ (157) :G60TD 1100 #TL 1028 IF INKEY(34)=0 THEN ay=0:LOCATE 2,4:PRINT CHR$(24) ZM 
800 IF rep$=CHR$(13)THEN stp=NOT stp:m=NÛT n ?NG :STRINGS (10, CHRS (233) ) ; CHARS (24) :LOCATE 68,4:FRINT CHR$( 

805 IF INKEY(79)=0 THEN al=NOT al *AD 24) :STRINGS (10, CHR$ (233) ) ; CHR$ (24) 

810 IF INKEY(68)=32 THEN rec=NOT rec:m=NÜT m:GOTD 1150 :vR 1029 RETURN FF 
815 IF INKEY(0)=0 THEN ret=-1:m=N0T m:G60T0 1100 +FA 1030 IF INKEY(15)=0 THEN rep$=CHR$ (128) ‘ETR 2FR 
820 IF INKEY(2)=0 THEN ret=+l:meN0T m:GOTO 1100 *P4 1025 IF INKEY(13)=0 THEN rep$=CHR$ (129) ‘EGR >FW 
825 IF INKEY(0)232 THEN ret=-i:aa=-1:m=NOT m:GOTO 1150 :YH 1040 IF INKEY(14)=0 THEN rep$=CHR$(130) CED >FJ 
820 IF INKEY(2)=32 THEN ret=+i:aa=-i:m=NOT m:G60T0 1100 :YD 1045 IF INKEY(S)=0 THEN rep$=CHR$ (131) ‘DCR :EG 
835 IF INKEY(0)=128 THEN fi=+i:m=NOT m:GOTO 1100 QD 1050 IF INKEY(20)=0 THEN rep$=CHR$(122) EAG :FJ 
840 IF INKEY(2)=128 THEN f1=-1:m=NOT m:G60T0 1100 >QD 1055 IF INKEY(12)=0 THEN rep$=CHR$ (133) ITR FR 
845 IF INKEY(6B)=0 THEN y=-1:G0T0 1100 ?EH 1060 IF INKEY(4)=0 THEN rep$=CHR$ (134) LCR >EF 
850 IF INKEY(1)=160 AND NOT y THEN GOSUB 2490:G0T0 700 WF 1065 IF INKEY(10)=0 THEN rep$=CHR$ (175) ‘ECR :FT 
855 IF INKEY(8)=160 AND NOT y THEN GOSUE 2465:G60T0 700 >KK 1070 IF INKEY(111=0 THEN rer$=CHRt (136) ‘UCR :F0 
8&û IF INKEY(1)=128 AND NOT y THEN GOSUB 2730:G60T0 700 :HH 1075 IF INÉEY(3)=0 THEN rep$=CHR$ (137) ‘UTR EP 
865 IF INKEY(8)=128 AND NOT y THEN GOSUE 2750:60T0 700 >WY 1080 IF INKEY(7)=0 THEN rep$=CHR$ (138) ACR +E0 
870 IF INKEY(8)=0 THEN po=po-1:G60SUB 1635:G60T0 1150 >VU 1085 IF INKEY(6)=0 THEN rep$=CHR$ (139) ‘AGR EU 
875 IF INKEY(1)=0 THEN po=po+{:G0SUB 1655:G0T0 1150 VA 1087 RETURN +FK 
880 IF INKEY(8)=52 AND NOT y THEN LOCATE##,w,1g:PRINT# DA 1095 IF INKEY(34)=0 AND INKEY(66)=0 THEN ay=0:LOCATE 2, ;LH 
CHR 60 $m$ (5) ;CHR$ (x) ; :po=po-5:G0SUE 1635:60T0 1150 4: PRINT CHR$ (24) :STRINGS (10, CHR$ (233) ) :CHRS (24) :LOCATE 

885 IF INKEY(1)=32 AND NOT y THEN LOCATE#F,4, 19: PRINT## CG 48,4: PRINT CHRS (24) :STRINGS (10, CHR (233) ):CHR$ (24) :rep$ 
,CHR& (4) 5m ts); CHRS (x); :po=po+5:G0SUB 1655:60T0 1150 ="ESC" 

890 IF INKEY(O)=160 THEN sup=-1:m=N0T m:B0TD 1100 >TA 1100 IF NOT m AND stp THEN GOSUE 1200 'REFONSE TERMINEE CP 
899 IF INREï(Zi=iou THE a=-lemNOT m:6010 1106 *FJ 1105 IF m AND(NOT al AND NOT y)THEN GOSUB 1375:1F vit T MP 
900 IF INKEY(16)=0 THEN GOSUB 1675:G60T0 755 #kC HEN GOTO 1150 IMPRESS 
901 GOTO 1100 ?Ek 1110 IF m AND(al AND NOT y)THEN al=NOT al:60SUB 1480'DE ?UE 
902 u$=INKEYS: IF u$i>""THEN GOTO 902 :0B LETE 
903 u$=INKEYS:WHILE u$="": BORDER 14:G60T0 903:WEND: BORDE FF 1115 IF m AND(NOT al AND y>THEN GOSUB 1510 INSERTION HD 
R 10 1120 IF reti>0 THEN G0SUB 1200:60SUB 1220:rep#="":60TO >BH 
905 IF INKEY(67)=0 THEN e=+i:m=N0T m :DA 695 CURSEUR 
910 IF INKEY(S9)=0 THEN e=-1:m=NOT m >CH 1125 IF #it>0 THEN GOSUB 1200:G0SUB 1415:G0T0 695 DEFLA :02 
915 IF INKEY(58)=0 THEN e=+3:m=N0T m :DÙ CEMENT FAGE 
920 IF INKEY(S0)=0 THEN e=+2:m=NÛT m >CY 1130 IF at>0 THEN DI: GOSUB 1330:E1:60T0 695 AJOUTER LI ?kE 
925 IF INKEY(51)=0 THEN e=-2:m=NÛT m >C6 GNES 
930 IF INKEY(43)=0 THEN e=-3:m=N0T m ?CE 1135 IF sup<>0 THEN DI: GOSUE 1240:E1:G0T0 695 ENLEVER 4 
935 IF INKEY(26)=0 THEN CALL 41683:FDR bq=0 TO 2:LOCATE >VU LIGNES 
#bq, 1, L:PRINT#bg,CHR$ (Z4):NEXT bq 1140 IF e:0 THEN GOSUB 1170:GO0SUB 1200:60T0 695 NN 
940 IF INKEY(64)=0 THEN rep$=CHR$(141+2) ?66 1145 IF e<0 THEN GOSUE 1185:G0SUE 1200:G0T0 475 NF 
945 IF INKEY(65)=0 THEN rep$=CHR$ (14242) >HF 1150 repé="" »X] 
950 IF INKEY(57)=0 THEN rep$=CHR$ (14342) :HD 1155 WEND >J6 
935 IF INKEY(S6)=0 THEN rep$=CHR$ (144+2) >HJ 1160 IF rec THEN n$is)=STRINGS(75,CHR$(157)):G0T0 895  >XM 
960 IF INÉEY(49)=0 THEN rep$=CHR$(145+z) :HH 1165 RETURN >FG 
965 IF INKEY(48)=0 THEN rep$=CHR$ (146+2) HN 1170 IF e=3 THEN buf$(1)=STRINGS (75, CHR$ (157)):LOCATE 2 >MJ 
970 IF INKEY(41)=0 THEN rep$=CHR#(147+z) #HC ,2:PRINT"A-":bu#$ (1) : RETURN 
975 IF INKEY(40)=0 THEN rep$=CHR$(148+z) >HA 1175 FOR i=i TO 2:1F e=i THEN buf$(i)=m$(s):LOCATE 4,i+ ?RX 
980 IF INKEY(32)=0 THEN rep$=CHR$ (149+z; :HG 1:PRINT buf$(i) 
985 IF INKEY(32)=0 THEN rep$=CHR$ (150+2) HE 1180 NEXT:RETURN MY 
990 IF INKEY(25)=0 THEN rep$=CHR# (151+z) ‘HE 1185 IF e=-3 THEN buf#(2)=STRINGS(75,CHR$(157)):LOCATE :PN 
995 IF INKEY(24}=0 THEN rep$=CHR$(152+2) HG 2,3:PRINT"B-":bu#$ (2) : RETURN 

1000 IF INKEY(69)=0 THEN GOSUE 2455:G0SUB 460:G0SUE 246 >2C 1190 FOR i=-1 T0-2 STEF-1:1F e=i THEN m$(s)=buf$(ABS(i) >ZH 
0 } 

1008 IF INKEY(33)=0 THEN GOSUB 555 >AC 1195 NEXT: RETURN ME 
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1200 IF NOT rec AND aa THEN aa=5:GOSUE 2530:LOCATER#,N, 
1g:FRINT##,.m$ (5) : : RETURN 
1205 IF NOT rec THEN LOCATE#F, 4, 19: PRINT#,m$ts): 
210 IF NÜT rec AND ay THEN n=s5:c=5:G0SUB 220% 
1215 RETURN 
1225 1g=iqtret 
225 IF 1g:20 THEN 1g=20:LOCATE Z, Z:PRINT CHR#7}; 
1230 IF gi THEN 1g=1:LOCATE Z,Z:PRINT CHR#17): 
1275 RETURN 
1240 GOSUEB 1285 
1245 FOR i=s+1 TO(&0-sup) 
1250 m$(1)=m$(1+sup} 
1255 NEXT 1 
1260 FOR i=60-(sup-1) TO 60 
1265 m$(1)=STRINGS (75, CHR$ (157) ) 
1270 NEXT 1 
1275 GOSUB 150:GO0SUB 650 
1280 RETURN 
1285 GOSUB 150:LOCATE S,2:FRINT CHR#(24): "SUPPRIMER CO 
MEIEN DE LIGNES":;CHR$ (24) 3" “a CHR$ (24) : “INSER 
ER COMBIEN DE LIGNES";CHR$(24) 
1290 LOCATE L6,3:PRINT CHR$(24):"-77-"CHR$ (24; 
1295 LOCATE 56,3:PRINT CHR$ (24); "-75-"3CHR$ (24) 
1100 j=w:iF sup:>0 THEN w=i7 ELSE w=57 
1305 g=tiag=si xxx ati se: x=24:0=0: 1$="##": 122 
1310 GÜSUEB 1705 
1315 IF VAL(E$): (60-ag7 THEN LOCATE Z,Z:PRINT CHR$ (7) :G0 
T0 1310 
1320 IF sup<:0 THEN sup=VAL(t#;ELSE a=VAL(t#) 
1325 f=giw=jis=agtx=xxt RETURN 
1330 GOSUE 1285 
1225 FOR 1=60 TO((5+1)+a)STEF-1 
1340 m$(1)}=m$ (1-3) 
1345 NEXT : 
1350 FOR 1=5+1 TO 5+a 
1355 m$(1)=STRINGS (75, CHR$ (157) 
1360 NEXT 1 
1365 GOSUB 150:GO0SUB 650 
1370 RETURN 
1375 IF rep$=CHh$(242)0R rep$=CHR$ (243) THEN RETURN 
1380 IF rep$=CHR$(240)0R rep$=CHR$ (241) THEN RETURN 
1385 IF rep$="ESC"THEN rep$="":RETURN 
1390 MID$ (n$is).po, 1}=rep$ 


1395 COCATE#?,pot (w-1;,1g: PRINT#F, CHR# (x) ;rep$3CHR$ C0: 2 


ido0 poz=potiiir po;:74 THEN po=/4iLOCATE Z,Z:PRINT CHR#: 


7)s 


1405 IF poibë THEN LOCATE#F,potin-1i,1g:FRINT#f.po$;ELS : 


E IF poi7é THEN LOCATE##,pot+(w-1),1q:FRINT#F,CHR$ (231); 


1410 RETURN 
1415 ah=ah+fi 


1420 IF ahii THEN ah=t:LOCATE Z,Z:PRINT CHR$ (7): : RETURN 


1425 IF ah:41 THEN ah=4i:LOCATE 2,2: PRINT CHR$ (7); :RETU 


RN 
1450 IF fist THEN GOSUE 1449 ELSE GOSUE 1460 
1435 RETURN 


28 


>JP 


>UG 
:NE 
2FC 
: EA 
:TH 
07 
FE 
?XF 
»TL 
?N2 
A'AI 
>UG 
>LA 
oVF 
?TE 
:FE 
2AF 


2PY 
FH 
-EU 
#RY 
:XA 
26H 


?PE 
>AF 
XF 
>YM 
#LC 
NV] 
#NL 
> LÀ 
?VF 


JU 
>F6 


1440 LOCATE#F, 1, 1:PRINT#F,CHR# (11) #CT 
1445 LOCATERF, 1, 1:PRINT#£,USING"##"; ah; >HH 
1450 PRINT#F,CHR$ (243) ;m$ (ah); 2YC 
1455 RETURN ?FJ 
1460 LOCATE#S, 78,20: PRINT#F,CHR$ (10) ?EZ 
1465 LOCATE#S, 1,20: PRINT#F,USING"##": ah+19; MW 
1470 PRINT#F,CHR$ (243) :m$lah+19): AD 
1475 RETURN GA 


1480 po=po-i:1F poil THEN po=1:LÜCATE 2,2:FRINT CHR$i7) 4BL 


L 
1485 MID$ (m$ (5) po, 1) =CHR$ (157) :rep#=CHR$ (157) :FJ 
1490 LOCATE#+,pot (u-1),1g:PRINT#F, CHRS (4) srep$:CHR# Gi: CT 


1495 IF po:ë8 THEN LOCATE##,po+(n-1),1g:PRINTH#F,po#iELS JR 
E IF po‘76 THEN LOCATE##,po+(n-1),1g:PRINT#F,CHR$ (2135): 


1500 LOCATE#f,potu, 19: PRINT#F, CHR& (x): MIDS$ (m$ (si ,poti, 1 PT 
);CHR# (x) 


1505 RETURN :FE 
1510 LOCATE 35,1:PRINT" INSERTION" DC 
1515 rep$="":av=po MD 
1520 rep$=INKEY$:WHILE rep$="":GOTO 1520: HEND FN 


1525 IF INKEY(1)=128 OR INKEY(1)=32 THEN LOCATE 2,2:FRI :LQ 
NT CHR$(7);:rep$="":G0TO 1520 | 

1530 IF INKEY(8)=128 OR INKEY(8)=12 THEN LOCATE 2,2:FRI :LE 
NT CHR$(7)s;:rep$="":G0TO 1520 

1532 IF INKEY(18)=0 THEN LOCATE 2,2:PRINT CHR$(7)::rep$ PC 
="":GOTO 1520 


1535 IF rep$=CHR$(32) THEN rep$=CHR$ (157) HA 
1540 IF rep$=CHR$ (59) THEN rep$=CHR$ (154) >HC 
1545 IF rep$=CHR$ (34) THEN rep$=CHR$ (155) -HB 
1550 IF rep$=CHR$ (44) THEN rep$=CHR$ (156) >H2 
1559 LOCATE 2,2:PRINT CHR$&(7): ?YC 


1580 IF INKEY(68)=0 THEN po=av:LOCATE 35,1: FRINT CHR$(Z HE 
4): STRINGS (9, CHR$ (273) } : CHR$ (24) : Y=NOT y: RETURN 

1565 IF INKEY(8)=0 THEN av=av-l:po=av:GOSUB 1635: G0T0 1 >DG 
J15 

1570 IF INKEY(1)=0 THEN av=av+i:po=av:GOSUE 1655: G0T0 1 :DV 
315 

1575 IF rep$=CHR$(240)0R rep$=CHR$ (241) THEN GOTO 1515  :HY 
1580 IF INKEY(79)=0 THEN po=av:GOSUB 1480:G0T0 1515 ?VR 
1585 IF INKEY(16)=0 THEN po=av:G0SUB 1675:G0T0 1515 VU 
1590 IF rep$=CHR$(242)0R rep$=CHR$ (243) THEN GOTO 1513 > 


1395 p$=MID$(m$is).1,av) 3RR 
1600 q$=MID$(m$(s),av+i,ak-(av+i)) BU 
1605 p$=p$trep$ FAC 
1610 m$(si=p$+q$ ?CF 
1615 LOCATE#S,u, La: PRINTHF,CHRS Lx) :m$ (5)  CHRS (x) 3 #WC 


1620 rep$="":avzav+i:IF av>74 THEN av=74:LOCATE 2,2:PRI NF 
NT CHR# (7): 

1625 IF av£B THEN LOCATE#S,av+(w-1),1g:PRINT#f,po$;ELS :JE 
E IF av<78 THEN LOCATE#f.av+(n-1),1q:PRINT#F,CHR$ 232): 


ièiü bOTG 1525 MF 
1635 IF posi THEN po=i:rep$="":LOCATE 2,2:PRINT CHR# 17) AP 


1640 IF poiéB THEN LOCATE#f.pot(w-1}.1qg:FRINT#F,po$:ELS :JH 
E IF po:76 THEN LOCATE##,pot (w-1),1g:PRINT#S,CHR$ (233) ; 


CPC N°32 - Mars 1988 


1645 LOCATE#F,pot (ui, La: FRINT#F, CHARS (x) :MID# (m$ is) .potl TV 
SL: CHRS CG): 

1650 RETURN >FF 
1855 IF po:74 THEN po=/4:rep#="":LOCATE Z,Z:PRINT CHR#U :CW 
7}3 

1660 IF poiëB THEN LOCATE#f,pot (w-1},1q:FRINT#F.po$iELS :JE 
E IF po:7é THEN LOCATE##,pot (w-1),1g:PRINT#F,CHR$ (2351: 


1665 LOCATE#?, pot (u-2),1g:PRINTH#F,CHR$ (x) :MID$ (m$ (5) ,po *HA 


-1,1);CHR$ (x): 

1670 RETURN FH 
1675 dé=MID$(m$(5),1,po-1} UE 
1680 e$=MID$(m$is) ,po+i,ak-(po+i})+CHR#(157) LV 
1685 m$(s)=d$+e$ BD 
1690 LOCATE#S,4, 19: PRINTHE,CHRS (0) 1m$ (si: CHR$ (x) 3 WF 


1695 IF po‘éB THEN LOCATE#f,pot+(w-11,1g:PRINT#,po$:ELS JU 
E IF poi76 THEN LOCATE##.potin-1),1q:PRINT#F,.CHR$ (233) : 


1700 RETURN 2FÈ 
1705 m=-Î:al=0:rec=û:retz=0:stp=ù :EÀ 
1710 LOCATE#F,w-1,5 2NO 


1715 PRINTH#E,.CHR$ (243) : CHR$ (x) : STRINGS (1, CHR$ (371: CHR UK 
(x) ;CHR$ (242) 


1720 t$="" EE 
1725 LOCATE##,4W,5 >MN 
1730 WHILE m AND LEN(t#){=] A" 
1735 rep$=INKEYS:HHILE rep$="":G0TO 17235: WEND PF 
1740 IF INKEY(18)=0 THEN stp=NÜT stp:m=NÛT m :MD 
1745 IF INKEY(79)=0 THEN al=NOT al ?EH 
1750 IF INKEY({6)=0 THEN rec=NOT rec:m=NOT m :MP 
1759 IF INKEY(8)=0 THEN ret=-{:m=N0T m FR 
1760 IF INKEY(1)=0 THEN ret=+i:m=N0T m ?FC 


1765 IF NOT b AND(ASC (rep$) :48 OR ASC (rep$):57)AND AGCI DL 
rep$) {46 THEN PRINT#F,CHR# (7) ;:rep#="" TEST CODE ASCIT 


1770 IF NOT m AND stp THEN GOSUE 1805 ?CQ 
1775 IF m AND NOT al THEN GOSUB 1840 BD 
1780 IF m AND al THEN GOSUB 1820 2XC 
1785 IF ret£:0 THEN GOSUB 1865 3XF 
1790 WEND #B 
1795 IF rec THEN GOTO 1705 -Tù 
1800 RETURN ?FC 


1805 IF b=-1 THEN LOCATERF u-1,5:FRINTH£," "CHARS (x): t$ QUA 
:SPACES (1-LENCS) ):CHRS (x) 5" 

1810 IF b=0 THEN bo=VAL (+) :LOCATERS ,u-1,5:PRINTRE," 5 LI 
CHRS (0) ::PRINTHS USING 145bos :PRINTH£, SPACES (1-LEN(i$) } 
:CHRS CD" 

1815 RETURN >FJ 
1820 rep$=CHR$ (8) +CHR$ (16) >Uk 
1825 IF LEN(ES)>=1 THEN tS=LEFTS (TS, LEN(ES)-1):PRINTH#S, MU 
CHR$ (0) srep$s CHRS (x) :ELSE PRINTH#, CHRS (7): 


1830 al=NOT al ?V6G 
1835 RETURN >GA 
1840 IF NOT ao THEN rep$=UFFERS (rep$) ?EV 
1845 IF LEN(ES)=1 THEN PRINT#F,CHR$ (7) : : RETURN M 
1850 PRINT#F,CHR$ (x) srep$:CHR$ (x) : >DR 
1855 t$=t$+reps EH 
1860 RETURN >FJ 
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1865 IF b=-1 THEN LOCATE##,u-1,5:PRINTH#S," "sCHR$ixists :UG 
: SFACES (I-LEN(TS))s CHR (xs " 

1870 1F o=0 InEN Do=VALitS:LOCATERT w-1,5:FRINTRT." "2 LE 
CHRS (x) 5 2 PRINT#F,USING 1$5bo: :PRINT##,SFACES(1-LEN (1%) ) 
sCHR$ (xs 


1875 RETURN GE 
1880 OUT (4FA7E) 1 LH 
1885 FOR i=1 TO 2000:NEXT »TY 
1890 OUT FE7F) ,4 3LF 
1895 OUT (4FB7F), 2-PEEK (EEK (WBE7D)+296#FEEX (RBE7E))  WQ 
1900 dk=INP (BFB7F) :M0 
1905 OUT (4FA7E) , 0 LE 


1910 IF(dk AND 32)=0 THEN LOCATE 55,2:PRINT CHR# (24): "D :QL 

ISQUETTE NON INSEREE";CHR$ (24) : PRINT CHR#(7)s;:tds5=0: CA 

LL SBEIS:G0TO 1940 

1915 IF(dk AND 64)THEN LOCATE 55,23:PRINT CHR$ (24) ; "PROT :LU 

ECTION EN ECRITURE"; CHR$ (24) : PRINT CHR$ 7): : tds=0:CALL 

&BE18:G0T0 1940 

1920 tds=-i WF 

1925 LOCATE 55,2:PRINT CHR$ (24); "DISQUETTE EN PLACE EC 
{] 

1930 LOCATE 55.3:FRINT'DISQUETTE NON PRÔTEGEE ":CHR$ (24 }EJ 

) 


1935 CALL $BBIB ?VE 
1940 RETURN :FH 
1945 DI:G0SUB 150 LE 
1950 au=0: v=0 2MF 
1955 LOCATE 3,2 :YA 


1960 PRINT'IMPRESSION SUR ECRAN DEPART  ":;CHR# (24): HN 
"—  -"{CHR$(24):" DEFILEMENT EDITER SUR FAFIER" 


1965 LOCATE 11,3 :EF 
1970 PRINT CHR$(24):"--377--"3CHR$ (24) :" ARRIVE :CJ 
E “sCHA$(24);"— -":CHRS(Z4);" DEFILEMENT *sL 

HR$ (24) 5 "--233-" 3: CHRS (24) 

1975 f=0iw=i3:s=3:x=24:b=-1:1=3:GO0SUE 1705 ?KE 
1980 IF t$=""OR t$="OUI"THEN au=-1 ELSE au=û :KB 
1985 IF au=0 THEN t$="NON"ELSE t$="OUI" FA 
1990 LOCATE w-2,5:PRINT CHR$(24)5;"--"stgs"--teCHR#(Z4) :YM 
1995 +=0:w=63:s=3:x=24:b=-1:1=3:GOSUB 1705 LA 
2000 IF t$=""OR t$="NON"THEN v=0 ELSE v=-1 HV 
2005 IF v=0 THEN t$="NON"ELSE t$="QUI" EH 
2010  LOCATE w-2,5:PRINT CHR$(24);"——"stés "ie CHRS (24) >YH 
2015 +=0:w=37:5=2:x=24:b=-1:1=2:G0SUE 1705 >KQ 
2020 IF t$=""THEN t$="i" #QN 


2025 IF VAL(E$)<1 OR VAL(t$)>60 THEN GOTO 2015 ELSE n=V >DX 
AL(t$) 

2030 LOCATE w,5:PRINT CHR$ (24); : PRINT USING"##" sn: :PRIN NY 
T CHR$(24) 

2025 +=0:w=37:s=3:x=24ib=-1:1=2:G0SUB 1705 | #KU 
2040 IF t$=""THEN t$="60" KR 
2045 IF VAL(t$)<1 OR VAL(t$)>60 THEN GOTO 2935 ELSE c=V >DF 
AL(t$) 

2050 LOCATE w,s:FRINT CHR$(24) :: PRINT USING"##":c::PRIN NN 
T CHR$(24) | 

2055 IF c£n THEN LOCATE 2,2:FRINT CHR$(7}:G0T0 2015 -Uü 


2060 IF au THEN GOSUB 2075 T6 
2065 IF v THEN GOSUB 2200 RQ 
29 


2070 RETURN FC 
2075 CLS#1 #5 
2080 k=1:am=0:an=-1:PEN#1, 1: FAPER#1, 0: CLS#i >ML 
2085 FOR as=n T0 € #LN 
2090 LOCATE 2,2:PRINT CHR$#(7) 3X] 
2095 IF k:20 THEN LOCATE#1, 78,20: PRINT#1,CHR$ (10) : 1g=20 LL 
ELSE 1g=k 
2100 LOCATE#1,1,1g:PRINT#1," ne *EJ 
2105 p=74:1=0:a1=2:a]=4 >RH 
2110 i=1i+i JF 
2115 v#=MiD$ (M$ tasi,1.1) it 
2120 d=ASC (v$) RE 
2125 IF ASC(v#)=154 THEN v$=CHR# (59) 3CX 
2130 IF ASC(v#)=155 THEN v$=CHR$ (34) Ce 
2135 IF ASC(v#)=156 THEN v$=CHR$ (44) Cu 
2146 IF d=143 THEN:MODE(2:am=-1tan=0:G0T0 2110 PU 
2145 IF d=144 THEN:MODEZZ:an=-1:am=0:G0TO 2110 FE 
2150 IF AGC(v#):139 THEN V$=CHR$ (32) 3CF 
2155 IF d>160 AND d‘173 THEN v$=CHR$ (d) DF 
2160 IF(am AND(ai-[NT(ai)<;0))THEN ai=ai+0,5 :MN 
2165 IF am THEN LOCATE#I,ai,lg:PRINT#I,v$:ai=aitisaj=a) ?M 
+2:p=p-i 
2170 IF an THEN LOCATE#I,a), lg: PRINT#1,v$:aj=aititai=ai ?FG 
+0,5 
2175 IF ip THEN GOTO 2110 TT 
2180 k=k+1 26 
2185 IF k=21 OR k=41 THEN CALL &BB18:CALL #BBIB:CALL &E :2ZH 
Bi8 
2190 NEXT as :EE 
2195 RETURN >GA 
2200 PRINT#B,CHR& (27) : CHR$ (64) >YM 


2202 IF bl THEN PRINT #8,CHR$(27)+"M"; ELSE PRINT #B,CH :KA 
R$ (27)+"P"; 


2205 FOR as=n T0 c ?LG 
2210 PRINT#3," "4 #MX 
2215 FOR 1=i T0 74 LA 
2220 v$=MID$ (m$(as).1,1) RU 
2225 d=ASC (v$) TA 
2230 IF d'156 THEN v$=CHR$ (32 >WD 


2235 IF(d:127 AND d‘1570R(d> us AND d‘{72)THEN v$=#$(d ;CU 
-127) 

2236 IF(d:144 AND d‘148) THEN IF 1:74 THEN PRINT," ": RH 
ELSE PRINT#S," 


2240 IF i74 THEN PRINT#B,V$:ELSE FRINTH#3, v$ 2MT 
2242 IF d=148 THEN IF i<74 THEN PRINT#8," “,ELSE FRINT# CC 
8," u 


2243 IF(d:150 AND d‘153) THEN IF i<74 THEN PRINT#E," ": >UG 
ELSE PRINT#9," * 


2245 NEXT i >V] 
2250 NEXT as ?EE 
2255 RETURN >FH 
2260 DI:GOSUB 150:LOCATE 5,2 >WH 


2265 PRINT CHR$(24);" À ":CHR$(24)5" ":CHR$(24):" Z "; >2H 

CHR$(24);"  sCHRS(24);" E "iCHRS(24);" "CHR# (24) R 
“sCHRS (24); "sCHRS(24);" T "iCHRS(24):"  “;CHR$ (ZA): 

OY “CHR$ (24) 

2270 LOCATE 46,2 ?EC 

2275 PRINT CHR$(24);" Q “{CHRS(Z4);" "iCHR# (24): M “5 32Y 


30 


CHRS(24);" “sCHRS(Z4):" E "sCHRS(Z4):" MLCHRS (dis R 
“CHRS(24);" "sCHRS(24);" T ":CHRS(Z4);" ";CHRS (24): 
“ V ":CHRS (24) 


2280 LOCATE 30,3 >DH 
2285 PRINT"; "iCHRS(24);"-1-":CHRS(24)s"  ":CHRS (24 OV 
jy"-2-";CHRS (24) E—" 
2290 c$=INKEVS:MHILE c$="":G0TO 2290:WEND *JD 
2295 IF INSTR("12",c$)=0 THEN GOTO 2290 >EK 
2300 h=-(c$="1")- oi sTL 
2305 ON h GOSUB 2715,233 RC 
310 LOCATE 2,2:FRINT RAT 150: RETURN :m 
2315 KEY DEF 67,0,97,65:KEY DEF 59,0,122,90:KEY DEF 69, >EW 
0,113,81 
2220 KEY DEF 71,0,119,87:KEY DEF 29,0,109,77:KEY DEF 28 EP 
,0,58, 42 
2325 RETURN >FF 
2230 KEY DEF 67,0,113,81:KEY DEF 597,0,119,87:KEY DEF b9 EE 
.0,97,65 
2235 KE DEF 21.012. tkEr DEF 27,0,98.42:nEt DEF 36, ER 
0, 109,77 
2340 RETURN FC 
2345 DI:G0SUB 150:G0SUE 360 ;VA 
2350 CLS#1 ;LC 
2355 MINDOW#O, 2, 79,2, 18:PAPERKO, 0: PEN#O, 1: CLSHO :RR 
2360 CAT }LA 
2365 CALL &BB18 »C 
2370 LOCATE#,6, 17 :M4 
2375 PRINT#1.CHR$(24): "DONNEZ LE NOM DU FICHIER >KH 
A CHOISIR :":CHR$ (24) 
2380 LOCATEH,55,18:PRINTHI,"-—>  “;CHR$(Z4);" >NQ 
" ; CHRS (24) 
2385 LOCATEMI,55, 20:PRINTHI, "> "iCHRS(24);" :AN 
.  “;CHRS (24) 
2390 f=liw=bl:s=18:x=24:b=-1:1=12:G0SUB 1705 >MH 
2395 g$=t$ >JXK 
2400 LOCATE#1, 61, 19:PRINTH1 , "CONFIRMATION"; CHRS (7) WF 
2405 f=1iw=61:5=20: x=24:b=-1: 1=12:G0SUB 1705 >MX 
2410 h$=t$ HI 
2415 IF g$<Ch$THEN LOCATERI,1,20:PRINT CHR$(7):G0T0 229 >AY 
ù 
2416 IF ab THEN RETURN ELSE ab=0 »1P 
2420 IF g$<>""AND h$<>""THEN LOCATE #1,6,19 ELSE GOTO 2 >2M 
429 . 
2421 PRINTHI.CHRS(24):; "EFFACER LE] REN GE 
OMMER LR J';CHRS (24) 
2422 c$=INKEVS:MHILE c$="":GOTO 2422: WEND +JX 
2423 cé=UPPERS (c$) >MD 
2424 IF INSTR("RE",c$i=0 THEN GOTO 2422 >E6 
2425 h=-(c$="E")-2#(c$="R") >TE 
2426 ON h GOSUB 5000, 6000 >RY 
2427 G60TO 2350 NC 
2429 WINDOWKO, 2, 79,19, 21:CLSH0:MINDOW#O, 2,79, 22,25:FAPE >UD 
RHÔ, 1:PEN#O, 0:GOSUB 150:RETURN 
2430 w$="SAUVEGAR"+".MIS":LOCATE 29,4:PRINT CHR$(7): 24H 
2435 GOSUB 2455 SYC 


2440 LOCATE 28,4:PRINT CHR$ (24) ; “SAUVEGARDE AUTOMATIQUE : 


"sCHR$ (24); :GOSUB 525 
2445 IF 14310000 THEN GOSUB Z460 
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AVC 


2447 IF ay=-1 THEN LOCATE 2, 4:PRINT" IMPRESSION": LOCATE 
68, 4:PRINT" IMPRESSION" 

2450 PRINT CHRS(7) : : RETURN 

2455 LOCATE#O, 1, 4: PRINTHO, CHRS (24) : STRINGS (78, CHR$ (233) 
à ; CHR$ (24) 3 : RETURN 

2460 att=50-INT(LEN(KS)) :qtt=gtt/2:LOCATENO, 15,4: PRINT 
CHRS (24) ;STRINGS (qtt, CHR$ (233) ) :kS3;STRINGS (att, CHRS (237 
} ;CHRS (24) : RETURN 


2465 j=wtg=fiag=siae=iqtxx=x:bm=al:bb=rec:bd=ret:bh=stp 
:bn=m 

2470 +=0:w=15:5=4: x=24:b=-{: 1=50:40=-1:GOSUB 1705: ao=û 
2475 k$=t$ 

2480 GOSUB 150:+=qiu=j:s=ag: lg=ae: x=xx:al=bmirec=bbi:ret 
=bd:stp=bhim=bn: G6OSUB 650: m=0 

2495 RETURN 

2490 FOR ax=1 TO LEN(KS#) 

2495 j$=MID$(k$, ax, 1) 

2500 aw=(po-1)+ax 

2905 IF awi75 THEN MID$(m$isi.aw, 11=3$ 

2510 NEXT ax 

2515 LOCATE#F,u, Lg: PRINTH#E,CHRS x :m$ (5) ;CHRS (x) : 

2520 po=po+LEN(k$):IF Ppo:68 THEN po=6B 

2525 RETURN 


2530 IF MID$(m$ts),75,1)=CHR$ (198) THEN FRINT CHR$(7)s:R > 


ETURN 


2535 IF m$(s)=STRINGS 75, CHR$ (157) ) THEN FRINT CHR$(7)3: 


RETURN 

2540 ns=Ù 

2545 GOSUB 2565 

2990 IF INSTR(LI1$,CHR$ (157) )=0 THEN PRINT CHR$(7)::RETU 
RN 

2595 GOSUB 2645 

2560 RETURN 

2565 11$=m$(5):ac=LeN(11$) 

2570 FOR ti=ac T0 1 STEF-1 

2575 1b$=MID#(11$.t1,1: 


2960 IF 1b$=CHR$(157)0R 1b$=CHR# (32) THEN ac=ac-1 ELSE t 


1=i 

2585 NEXT t1 

2590 11$=MID$(11$,1.ac) 
2595 FÜR t1=1 TO ac 
2600 1b$=MID$(11$,t1,1) 


2605 IF 1b$=CHR$(157)0R 1b$=CHR$ (SZ) THEN MID$(11$,t1,1) : 


=CHR$(158)ELSE ti=ac 

2610 NEXT t1 

2615 FOR t1=1 TO ac 

2620 1b$=MID$(11$,t1,1) 

2625 IF 1b$=CHR$(32) THEN MID$(11$,t1.1)=CHR$ (157) 
2630 NEXT t1 

2635 RÉTURN 

2640 ‘ 

2645 IF LEN(11$)=74 THEN o$=11#:G0T0 2720 
2650 FÜR t1=1 TO LEN(11$) 

2655 IF MID$(11$,41,1)=CHR$(157) THEN ns=ns+i 
2660 NEXT t1 

2665 t=74-LEN(11$) 

2670 IF ns=0 THEN PRINT CHR$(7)::G0TD 2720 
2675 FOR bf=1 TO ns:sp(bf)=t\ns:NEXT 
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>JH 


>WC 
ED 


>IÙ 


?NV 


;IM 
2KC 
3KkÀ 


#60 
>RN 
F1 
LY 
ES 
EF 
2WC 
?FL 
>FH 


FD 
ME 
>RKk 
> 


2680 FOR bf=i TO t-ns#itins):spibf)=spibfi+{:NEXT 
2685 bf=1:0$="" 

2690 FOR t1=1 TO LEN(11#; 

2695 o$=0$+MID$(11$,t1.1) 

2700 IF MID$(11$,t1,1)<:CHR$(157) THEN 2715 
2705 o$=0$+STRINGS (sp (bf),CHR$ (157) ) 

2710 bf=bf+i 

2715 NEXT tl 

2720 0$=0$+CHR$ (158) :m$(5)=0$ 

2725 RETURN 

2730 FOR t1=74 TO po STEP -1 

2735 MID$(m$(s),t1,1)=CHR$ (157) 

2740 NEXT t1 

2745 RETURN 

2750 FOR t1=1 TO po 

2755 MID$(m$(is),t1,1)=CHR$ (157) 

2760 NEXT t1 

2765 RETURN 

2780 RESUME 205 


3000 bi=0:LOCATE #2,1,1:PRINT #2, "23P<< "a LOCATE #2,76.1 GK 


PRINT #2, "2P€C': RETURN 


4000 bl=-1:LOCATE #2,1,1:FRINT #2," 2E<<":LOCATE 42,76, 1 


L:PRINT #2,"2)E<<":RETURN 
5000 !ERA, @h$: RETURN 

8000 acn$=h$:LOCATE #1,6, 19:PRINTH1, CHRS (24) : "DONNEZ 
LE NOUVEAU NOM DU FICHIER :";CHR$ (24) 
8030 ab=-1:60SUB 2380 

6040 IF g$<>""AND h$t>"" THEN :REN, Eh$, éacn$ 
8050 ab=0:RETURN 

7000 FOR KWA= 41507 TO 41699 

7005 READ XWBS:POKE XHA, VAL (""+KWES$) 

7010 NEXT XWA 

7015 DATA 01,20, A2,21,5C.A2,C3,D1 

7020 DATA BC. 3D,A2,C3, 60, A2, C3, 73 

7025 DATA 42,03, 8B,A2, C5, 7€ A2, C3 

7030 DATA Bb, A2, 4D,4F,44,45,30,B1 

7035 DATA 4D.4F,44,45,31,B1,4D,4F 

7040 DATA 44,45,30, 82, 4D, 4F,44,45 

7045 DATA 31.82, 4D,4F,44,45, 32, B2 

7050 DATA 00,00, 00, 00, 00,FE, 00, CO 

7055 DATA 3E,00, 32,C8,B1,3E, CC, 22 

7060 DATA CF, B1,3E, 33, 32, D0,B1,C9 

7065 DATA FE,00, C0, 3E.01,32,C8, Bi 

7070 DATA 11,CF,B1,21,87,A2, 01,04 

7075 DATA 00,ED, B0,C7.88, 44,22, 11 

7080 DATA FE, 00, C0, 3€, 00,32, C8, B1 

7085 DATA 3E,F0,32,CF,B1,3E, OF, 22 

7090 DATA DO, B1,C9,FE, 00, C0, 3€, 0 

7095 DATA 32,C8.B1,11,CF,E1,21,B2 

7100 DATA A2, 01,04, 00, ED, B0,C9, C0 

7105 DATA 30,0C,03,FE, 00, C0, 3€, 02 

7110 DATA 32,C8,B1,11,CF,B1,21,CA 

7115 DATA A2,01,08, 00, ED, B0, C9, 80 

7120 DATA 40,20, 10,08, 04,02, 01, 00 

7125 DATA 06,FF, 21,00, C0, 7E, AB, 77 

7130 DATA 23,3E,00, BC, 20,F7, C9, 00 

7135 DATA 00 

7140 RETURN 


DUCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP6 5LA - ANGLETERRE. Tél. +44.291.257.80 


EN EXCLUSIVITE : DU MATERIEL ET DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS 
POUR AMSTRAD - SCHNEIDER 464/664/6128 


SOURIS pour AMSTRAD CPC 


La SOURIS de SIREN SOFTWARE (manuel en Français) est 100% compatible avec la syntaxe de la Souris AMX et compa- 
tible avec tous les programmes pour Souris AMX. 

Notre SOURIS est aussi compatible avec la plupart des progiciels et jeux utilisant une manette de jeu! 

Indispensable pour le travail sérieux et indispensable pour les jeux. Permet une grande précision avec les stratégies, 
aventures et arcades. 

Prête à fonctionner, trois boutons opérationnels, branchement comme une manette, grande douceur de maniement 
et simple à utiliser. 

Livrée avec la super disquette française de Gestion Assistée par Icones : GAI OXFORD. 

La SOURIS de SIREN SOFTWARE est disponible et ne vaut que 520.00 FF Port compris avec GAI OXFORD gratuit. 

(Pour expédition Hors Europe ajouter 30 FF S.V.P) 


OFFRE PROMO : SOURIS avec GAI OXFORD + OXFORD PA.O. (voir ci-dessous) = 700.00 FF port compris. 


ENFIN ! UN PROGRAMMATEUR D'EPROM ULTRA RAPIDE 
POUR AMSTRAD CPC ! 


Se relie à l'ordinateur en un instant. Comporte un support à force d'insertion nulle pour travail soigné et rapide. 
Faites une copie de sauvegarde de vos ROMS commerciales. Transférez vos programmes personnels Basic ou ma- 
chine code, routines, RSX, Sur EFPROM. Copie de ROM originale en RAM ou sur disquette. Programme les EPROMS 8K 
ou 16K à partir de RAM disquette ou K7. Programmation ultra-rapide : une EPROM de 16K est programmée en moins 
de 2 minutes et demi. L'interface PROGRAMMATEUR D'EPROM est livrée avec son logiciel utilitaire disquette 3” 
ou K7 (spécifiez S.V.P.) transférable sur EPROM. Instructions complètes en français. 

L'interface PROGRAMMATEUR D'EPROM ne vaut que 550.00 FF (port compris) 


(Pour expédition hors Europe ajouter 40 FF S.V.P.). 
CARTE D'EXT ENSION ROMS. Cette carte peut eo Le 8 ROMS (8 ou 16 K) pour votre AMSTRAD. 


Imaginez, traitements de texte, désassembleurs, RSX à g0g0, tableurs etc... (plus tout ce que vous aurez réalisé avec le pro- 
rammateur d'EPROM !) sur la même carte d'extension en même temps ! 
s enragés de la ROM ont la possibilité de relier DEUX cartes ensemble (sauf CPC 464) pour combiner un total de 16 ROMS. 
Extrêmement simple à utiliser ! Manuel complet et détaillé en Français. 
CARTE D'EXTENSION ROMS ....... seulement 495.00 FF DEUX CARTES D'EXTENSION pour ............ 900.00 FF 
Pour envoi avion hors Europe ajouter 30 FF (1 carte) ou 50 FF (2 cartes) SV-P. 
Note : pour bénéficier de la ristourne, les 2 cartes doivent figurer sur la même commande. 


LOGICIELS UTILITAIRES EN FRANÇAIS : 
OXFORD PA.O. 


La Publication Assistée par Ordinateur pour CPC 6128 (ou 464/664 avec 128 K) 

Edition, copie et mouvement de blocs de travail entiers. Des douzaines de motifs, icones, figures géométriques, 
bordures etc... fournis et redéfinissables. Intégrez texte, vos copies d'écran personnelles, etc... à vos documents. 
Compatible avec SOURIS Siren (et AMX), avec imprimantes type EPSON et IBM. 

Edition de caractères et motifs à un demi pixel près. Zoom, effet miroir, etc... 

Copies imprimées multiples, format entier, demi-format, quart de format, etc. 

Entièrement en français. Enfantin à utiliser. 

OXFORD PA.O. sur disquette 3” pour CPC 6128 (ou 464/664 avec 128 K) _ 250.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF S.V.P) 


TURBOLOCKS pour transfert automatique de K7 à disquette des programmes récents protégés par le 
NOUVEAU “Speedlock”. 

TURBOLOCKS sur disquette 3” (464/664/6128) __ 150.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF SVP) 


CASSELOCKS sauvegarde K7/K7 des programmes récents protégés par le NOUVEAU “Speedlock” 
CASSELOCKS sur K7 : 100.00 FF sur disc 120.00 FF port compris 
(Pour expédition hors Europe ajouter 10 FF S.V.P) 


: VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : DUCHET COMPUTERS 
51, Saint-George Road - CHEPSTOW NP6 5LA - ANGLETERRE. Téléphone : +44.291.257.80 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le Monde entier 
REGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs - EUROCHEQUE en livres sterling (vous faites la conversion). 
ou CHEQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion) 


es s| ou carte de crédit internationale VISA, EUROCARD, MASTERCARD, ACCESS es 


Rédiger les mandats, etc... à l’ordre de DUCHET Computers. 
Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à-Caroline, Jean-Pierre ou Didier au 44.291.257.80 de8hà 19h. 


Les programmes en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Leur diffusion commerciale même partielle sous quelque titre 
ou forme que ce soit et par qui que ce soit est formellement interdite. 


CE 


MIRAGE IMAGER version T U R B O 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 


RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


CPC 464/664 : 
seulement450 FF 


Port compris 


S.V.P. Spécifier si le connecteur 
du BUS D'EXPANSION est mâle ou femelle. 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES transterer/sauvegarder/recharger 
RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! Ne prend aucune place en RAM, n'est donc pas détectable par l'ordinateur 

TRANSFERT K7 / DISQUETTE ou DISQUETTE / CASSETTE et SAUVEGARDE K7 / K7 ou éranul détectés areurs deb ienr P 

DISQUETTE / DISQUETTE de tout programme protégé ou non jusqu'à 128 Ko (64 Ko sur 464/664) g K RAM et 8 K ROM incorporés 

SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) Compresse afin d'utiliser un espace minimum sur disque ou cassette 

TOOLKIT incorporé qui affiche les adresses, INK, PEN et autres details des programmes Sauvegarde er un seul bloc (pratique pour archivage) 

et ecrans, permettant un bidouillage acharne et intensif Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 

Grâce au TOOLKIT, contemplez instantanément les résultats des bidouillages effectuées ! Pour usage personnel 

MODE 64 K ou 128 K avec les CPC 6128 Comporte un bus d'extension pour raccorder d'autres peripheriques 

Se branche en 2 secondes ! Stoppez un jeu à n'importe quel moment, sauvegardez et reprenez-le au même endroit 
Extrémement simple à utiliser : gere par menus et l'on presse UN SEUL BOUTON pour TOUS les programmes transferes fonctionnent ! 


VENTE PAR CORRESPONDANCE - Envoyez votre commande (en Français) directement à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOW NP6 SLA - ANGLETERRE - Téléphone : +44 - 291 257 80 


ENVOI IMMEDIAT LE JOUR MÊME PAR AVION dans le Monde entier (Hors Europe ajouter 25 FF S.V.P.) 


REGLEMENT PAR : 
e MANDAT POSTE INTERNATIONAL en francs 
e EUROCHEQUE en livres sterling 
ou CHEQUE BANCAIRE en sterling compensable en Angleterre 
e CARTES DE CREDIT INTERNATIONALES par écrit ou par téléphone : VISA, EUROCARD, MASTERCARD, ACCESS. 


REDIGER LES MANDATS, etc. à L'ORDRE DE DUCHET Computers. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80. 


GESTION DE PAGES-ECRANS 


HARDCOPY 


SAUVER IMAGE SUR DISQUETTE 
CONSTRUCTION D’UNE MIRE 
IMAGES AVEC ABERRATION 


EN BARILLET IMAGE FISH EYE 


@13°"° PARTIE 


CAO 
CPC 


HSE 
Jean-Pierre PETIT 


ns PETIT est directeur de recherche au CNRS. Il est l'auteur d'un logiciel de CAO de 


120 Ko intitulé AMSTRAD 3D, assorti d'un livre du même nom, édité par PSI. Le logiciel a été 
délibérément mis dans le domaine public, c'est-à-dire que vous pouvez le copier sur une 
disquette AMSTRAD CPC en toute tranquillité chez un revendeur ou un ami. 

Ce livre est un gros mode d'emploi du logiciel pour non programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à l'imagerie 3D. 

Dans cette suite d'articles, Jean-Pierre PETIT explique au lecteur toutes ses astuces, ce qui 
lui permettra de construire lui-même son propre programme de CAO. 


INTRODUCTION 


Nous allons équiper les sections VOIR 
et DES de sous-programmes permettant 
de stocker des images sur disquette et 
de faire des hardcopies (sur imprimante 
DMP 2000). Mais auparavant, nous al- 
lons nous doter de la possibilité de gérer 
des pages-écrans. 


INSTALLATION 
DE KMAN 
SUR DISQUETTE 


BANKMAN est une routine permettant de 
gérer le second bloc mémoire de 64 K 
présent dans le CPC 6128, bloc qui 
n'existe pas sur un 464 muni d’un lec- 
teur externe. Les lecteurs qui dispose- 
ront de ce matériel devront en tenir comp- 
te. 

BANKMAN existe sur la disquette système 
C/PM PLUS, en deux parties, toutes deux 
nécessaires : 


34 


BAS  1K 
BIN  2K 


BANKMAN 
BANKMAN 


Ce que vous pourrez vérifier en mettant 
votre disquette C/PM PLUS dans le lec- 
teur et en faisant CAT. Vous vérifierez 
également que cette disquette porte un 
programme en C/PM intitulé : 


PIP. .COM  9K 


REMARQUE 


Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l’auteur avec 
50 F pour le port, ou plus simplement 
90 F sans la disquette à l'adresse 
suivante : 

Jean-Pierre PETIT, Chemin de la 
Montagnère, 84120 Pertuis, Vauclu- 
se. 


C'est le programme, l'utilitaire, que nous 
allons utiliser pour installer les deux sec- 
tions de BANKMAN sur notre disquette 
AMSTRAD-3D. Mais si vous essayez de 
faire RUN’PIP, cela ne donnera rien. Il 
vous faut d'abord passer en C/PM, grâce 
à l'ordre-clavier : 


ICPM 


Le l est le caractère indiqué à droite de 


Signalons que nous pouvons désor- 
mais vous fournir une version tour- 
nant sur 464 avec lecteur externe, 
ceci grâce aux modifications appor- 
tées. En effet, CHAIN ne marche 
pas dans le 464 . Il a donc fallu le 
simuler en stockant et en rechar- 
geant les fichiers résidents à cha- 
que transfert. Par ailleurs, ily a quel- 
ques différences dans les syntaxes 
respectives (effaçage fichiers, bas- 
culement de pages-écran). Problè- 
me résolu grâce à l'obligeance de 
M. Vibert, de Garches. 
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la lettre P, sous forme de deux tirets ver- 
ticaux situés l’un au-dessus de l’autre. 
Nous l'avons déjà utilisé pour des ordres 
comme IERA,”*.BAK” (effacement auto- 
matique des fichiers .BAS sur disquette, 
pour “faire le ménage”). Sur certaines ma- 
chines ce caractère sera le u accentué à 
Quand on fait cet ordre ICPM, l'affichage, 
sur un CPC couleur, change. Les carac- 
tères apparaissent en blanc sur fond bleu, 
et le curseur carré apparaît à la droite 
de : 


A> 


NB : l'ordre C/PM qui provoque l'affichage 
du contenu de la disquette est alors 


DIR (plus évidemment une pression de 
la touche fin de message) 


Ce que vous pourrez aisément vérifier. 
Maintenant, quand vous êtes sous C/PM 
il n'y a plus d'ordre de lancement de pro- 
gramme du style RUN”Quelque chose. 
Essayez, l'ordinateur ne comprend plus 
cet ordre BASIC. 

Tous les programmes suivis de COM se 
lancent en écrivant directement leur la- 
bel. Vous avez par exemple un program- 
me intitulé : 
AMSDOS .COM _ 1iK 

Vous pourrez le lancer en faisant indif- 
féremment 


AMSDOS (et évidemment la touche <Re- 
turn>) ou : 


AMSDOS.COM (et la touche <Return>). 


Vous chargerez alors le DOS, le disc ope- 
rating system de l'AMSTRAD associé au 
BASIC, et qui s'appelle précisément AMS- 
DOS. Essayez, vous verrez apparaître l'af- 
fichage en grosses lettres jaunes sur fond 
bleu et l'affichage du catalogue ne pourra 
plus être obtenu par DIR mais par CAT, 
ordre BASIC. Nous sommes passés du 
C/PM au BASIC. 

Pour revenir en CPM vous n'aurez qu'à 
faire ICPM. Quand vous êtes revenu dans 
cette configuration, faites : 


PIP 
Vous verrez apparaître le message : 
CP/M3 PIP VERSION 3.0 


Vous noterez le changement du “prompt” 
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(on appelle ainsi le caractère situé immé- 
diatement avant le curseur). C'est main- 

tenant un astérisque. PIP est un program- 
me qui permet le transfert d’un fichier quel- 
conque d'une disquette à l'autre. Le lec- 
teur central est repéré sur AMSTRAD par 
la lettre A et le lecteur externe par la lettre 
B. 

Pour copier à l’aide du seul lecteur A, 

l'ordre logique serait : 


À : = A : BANKMAN . BIN 


Le tout étant ce que Kipling 
appelait "grosse astuce 
et force magie 


ÿ=4x 


mais cela ne marche pas et vous obtenez 
le message d'erreur : 


ERROR : INVALID FORMAT 
En fait l'ordre de transfert est : 
B : = A: BANKMAN. BIN 


Le début du message spécifie le lecteur 
sur lequel sera transférée la copie. Vient 
ensuite le lecteur où sera puisé le fichier, 
puis le nom du fichier. Le tout étant ce 
que Kipling appelait “grosse astuce et force 
magie”. 

Immédiatement, l'AMSTRAD charge 
BANKMAN . BIN à partir de sa disquette 
système (si elle est toujours dans le lec- 
teur). Vous devez alors constater l'affi- 
chage défilant, en bas de votre écran, de : 


Please put the disc for B : into the drive 
and press any key. Please put 


enlevez le disque système et remplacez- 
le par votre disquette de travail, puis pres- 
sez une touche quelconque. Vous retrou- 
vez votre “prompt”, travail effectué. Remet- 
tez le disque système dans le lecteur et 
transférez alors votre second fichier par : 


B : = A : BANKMAN. BAS 


vous lirez alors le message défilant : 


Please put the disc for A : into the drive 
then press any key. Please put 


Attention, ne vous précipitez pas pour 
changer la disquette dans le lecteur. Ce 
message signifie : mettez le disque cor- 
respondant au lecteur A (au lecteur “sour- 
ce”, dans lequel se trouvera le fichier à 
transférer). Si votre disquette système est 
déjà dans le lecteur, pressez simplement 
une touche. Vous verrez alors apparaître 
un second message défilant : 


Please put the disc for B : into the drive 
then press any key. Please put 


Là vous devrez mettre votre disquette de 
travail AMSTRAD-3D et presser une nou- 
velle touche pour déclencher l'opération 
d'écriture. 


Ouf... 


Nous avons décrit l'opération par le menu, 
pour que vous puissiez la mener à bien 
sans problème et sans avoir à vous référer 
au manuel (celui de l'AMSTRAD est parti- 
culièrement ésotérique). 

Pour retourner en BASIC, le plus simple 
est d'éteindre la machine et de la rallumer. 
Vous lancerez alors le programme BANK- 
MAN en faisant : 


RUN”BANKMAN 


Le lecteur tournera un instant et vous ver-. 
rez réapparaître le : 


Ready. 


Désormais toute entrée dans la chaîne 
de traitement AMSTRAD-3D sera précé- 
dée de cette opération qui a pour effet 
d'installer quelque part dans la machine 
(en dehors de l'espace réservé à l'héber- 
gement des programmes BASIC) une rou- 
tine en assembleur permettant de gérer 
le second bloc de 64 K, en particulier de 
jouer avec des “pages-écrans” (voir plus 
loin). 


INSTALL N DE LA 
ROUTINE D RDCOPY 


Ce programme correspond à l'imprimante 
DMP2000, et nous lui avons donné ce 
nom. Nous allons devoir écrire ce pro- 
gramme assembleur, sous forme d’un pa- 
quet de DATA. Ces ordres assembleur 
sont alors inscrits en mémoire, au mo- 
ment de l'exécution, dans une boucle 
d'écriture : 


270 FOR i = &A000 TO &AOC2 
280 READ A$ : À = VAL (“&”+A$ ): POKE 
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i, À 

290 TOTAL = TOTAL + A : REM Comp- 
teur pour vérification. 

300 NEXTi 


J'ai mis un i minuscule pour rappeler qu'il 
s’agit cette fois du caractère alphabétique 
i et non du caractère C/PM. 


Ceci est extrêmement commode. En as- 
sembleur les instructions et les adresses 
sont écrites en hexadécimal. Dans ce co- 
dage non décimal, les caractères de base, 
dans cette numération en base seize, et 
leur équivalent en décimal sont : 


2, 3, 4,5, 6,7, 8,9, A,B,C,D,E,F 
2, 3, 4,5, 6, 7, 8,9, 10, 11, 12, 13, 
5 


A “vaut” donc 10 (en décimal). 
L'adresse A000 correspond ainsi à : 


zéro + zéro x seize + zéro x (seize)? + 
dix x (seize)* 


soit 40960. De même l'adresse AOC2 
correspond à : 


deux + douze x seize + zéro x (seize)? + 
dix x (seize)* 


soit 41154. J'ai fait toute cette acrobatie 
simplement pour montrer que si dans le 
programme (listing 1), vous remplacez la 
ligne 270 par : 


270 FOR i = 40960 TO 41154 


cela marchera tout aussi bien. Mais la 

présence du caractère & dans le FOR indi- 

que à l'AMSTRAD que les adresses figu- 
reront en hexadécimal. Dans la ligne 280 
le READ lit le paquet de deux caractères 

en DATA correspondant à l'ordre assem- 

bleur, le VAL convertit cela en décimal, 

d'une manière il est vrai un peu parti- 

culière, et le POKE réalise l'écriture en 

mémoire à l'adresse |. 

Il est toujours agaçant d'avoir à rentrer 
des paquets de trucs à la main dans un 
ordinateur comme autant d'incantations 
cabalistiques. C'est l'aspect un peu mys- 
tificateur de l'informatique, alors que, bien 
souvent, cela ne casse pas trois pattes 
à Un canard. 

Vous savez qu'une routine écrite en as- 
sembleur peut être appelée à l'intérieur 
d’un programme BASIC en utilisant l'ins- 
truction CALL, suivie de & et de l'adresse 
en hexadécimal du début de cette sec- 
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tion-programme en assembleur, en l'oc- 
currence A000, comme indiqué en ligne 
270. 


EXPLOITATION 
DANS VOIR 


Nous avons créé dans une précédente 


leçon une section VOIR qui crée des ima- 


ges en perspective avec prise automa- 
tique du point de vue sur l'objet résident. 
Nous allons intégrer ce système de hard- 
copy dans ce programme, ce qui donnera 
le listing 2. On rappelle les conventions 
d'écriture : les lignes ayant déjà été don- 
nées dans de précédentes leçons sont 
suivies de : ‘* 


Commentaires : 


En 12060 et en 18117 (selon que l'on déci- 
de de tracer ou non l'image du trièdre), 
on procède à une sauvegarde systéma- 
tique de la page écran affichée (page 1) 
dans la zone mémoire “page 2” (qui se 
situe en fait dans le second bloc mémoire 
de 64 K de l'AMSTRAD). L'instruction 
SCREENCOPY (précédée du caractère 
C/PM) permet de recopier une page écran 
sur une autre. Les pages-écran correspon- 
dent à des zones mémoire, et nous ne 
nous préoccuperons pas de savoir où elles 
se trouvent. La syntaxe se lira sur un 
exemple : 


ISCREENCOPY 2,1 recopie la page 1 
dans la page 2 


ISCREENCOPY 1,2 recopie la page 2 
dans la page 1 


Nous utiliserons ce système de copie à 
chaque fois que nous voudrons écrire sur 
un dessin, sans l’abîmer. 


Dans ces lignes 12060 et 18117, on pose 
ensuite la question de l'opportunité d'une 
hardcopy. Si la réponse est <O> (O est 
la quinzième lettre de l'alphabet), on va 
faire disparaître toute trace de ce qu'on 
vient d'inscrire en recopiant la page 2, 
où on a conservé le dessin ) sur la page 
1. Puis on déclenche l'ordre de copie par 
le CALL &A000. Ceci ne marchera bien 
évidemment que si : 


1 - Votre imprimante est allumée. 
2 - Vous avez préalablement à l'entrée 
dans la chaîne de traitement par 
RUN”MOD1 fait RUN”DMP2000 


De même l'AMSTRAD ne comprendra pas 
l'instruction ISCREENCOPY si vous ne 
la lui avez pas préalablement “apprise” 
en faisant RUN”'BANKMAN 


Remarque importante : en entrant dans 
la chaîne de traitement AMSTRAD-3D, 
respectez l'ordre : 


RUN'BANKMAN 
RUN”DMP2000 
RUN”MOD1 


Commentaires : 


Nous introduirons dans DES les trois sous- 
programmes 230000, 45000 et 46000 d’er- 
reur sur objet, d'erreur sur image et d’er- 
reur sur bloc. 


Le dessin est effectué dans le sous-pro- 
gramme 27000, selon trois sous-options : 


a-Objet en mémoire 
b-Dessin par élément 
c-Dessin par bloc 


La recherche du “blindage” de cette sec- 
tion DES continuera grâce aux sections 
30000 et 31000 qui introduisent des ques- 
tionnements quant à l'objet et au bloc 
résident, ou à charger. 


En fin de sous-programme 27000, comme 
dans VOIR, on procèdera à une recopie 
du dessin sur la page 2 (ligne 27390). 
En 27390 on appellera le sous-programme 
60000, déjà vu plus haut, qui permettra 
une éventuelle hardcopy ou stockage 
d'image sur disquette. 


L'ABE 
EN B 


TION 
LLET 


C'est très joli d'accumuler des outils 
nouveaux à chaque leçon, mais qu'en fai- 
re ? Après avoir doté VOIR et DES de 
ces outils de stockage d'image et de hard- 
copy, nous allons puiser dans ce qui a 
déjà été construit, ajouter quelques com- 
pléments et mettre en évidence ce pro- 
blème clef de la représentation en pers- 


pective. 


En fait, un des buts de la démarche que 
nous poursuivons est de construire une 
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procédure permettant une négociation 
automatique de l’aberration en barillet, ce 
qui n'existe présentement sur aucun sys- 
tème CAO, gros ou petit. On n'est pas 
chercheur pour rien. 


Très bien, mais alors, cette aberration, 
c'est quoi ? 


Elle nait dès qu'on utilise un objectif “grand 
angulaire”. Dans notre programme ceci 
correspondra aux fortes valeurs de ce que 
nous avons appelé l'OUVERTURE AN- 
GULAIRE AN. La valeur standard corres- 
pond à un champ visuel humain restreint, 
de plus ou moins vingt degrés, c'est-à- 
dire à une extension angulaire de 40°. 
En fait l'œil humain a un champ percep- 
tif plus important. Faites l'expérience. Gar- 
dez la tête immobile et demandez à quel- 
qu'un de déplacer un objet jusqu'à ce que 
vous cessiez de le percevoir. Vous ver- 
rez que ce champ est énorme. 

Bien sûr la qualité de perception diminue 
au fur et à mesure que l’on s'éloigne de 
l'axe optique, qui concentre l'information 
sur la tache fovéale située au fond de la 
rétine et riche en cellules réceptrices. C'est 
cette tache minuscule dont vous vous ser- 
vez pour lire ce texte. Si vous prenez un 
objet comme un timbre poste et que vous 
cherchiez à lire le chiffre qui y figure en 


ÎU OO ntktettetaeseartetenres 


20  HARDCOF 

30 ‘FOUR DMF 20 

A0 4444488 

90 DATA CD, BA.BE.CD.E 2. EF. AU. CD 
oi DATA 6B.A0.21.8F,.01.22, C0, A0. 11.00 
74 DATA OÙ,2E, 06,32, C2, AG, CD, 7E. A0. 0E 
80 DATA G0,3A.C2,A0,47,ES.D5,C5.CD.FC 
90 DATA BB.Ci,D1.21.BF,.A0,BE.E1,37.20 


196 DATA C1.A7,CB.11.2B, 10,EA. CD, ET. AÛ 
110 DATA 79,CD.AA.A0.17,E5,21.7F.02.77 
120 DATA ED. 952,E1.238.05,2A.C0.A0. 18.CD 
30 DATA 23,7C. 85,08. 28, 11,00, 00, 23, C0 
146 DATA AG.ZE. 03. BD, 20, BA, 7C.B4, 20,6 
150 DATA 3E,04,32,C2, A0, 18. AF,3E, 1B,CD 
160 DATA AA.AG, ZE, 33. CD, AA, A0, 3E, 10, CD 
170 DATA AA.A0,C9.E5,3E,423.CD, 1E.BE.Ei 
180 DATA 28.02,E1,C9,3E. D, CD, AA. A0. ZE 
190 DATA OÂ.CD. AA, A0,3E, 1B. CD, A4. 40,3 
260 DATA ZA. CD. AA. A0. ZE, 54, CD, AA, AO, ZE 
210 DATA 7F,CD. AA. A0, 3E. 02, CD. AA, A0. C5 
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LA 


k 


déplaçant votre axe optique légèrement 
à côté, vous verrez que c’est impossible. 
Prenons un décor constitué de segments 
de droites. L'œil les percevra toujours, 
plus ou moins, comme des courbes. En 


L'INFORMATIQUE SERVICE 


VOTRE 
NOUVEAU 
SPÉCIALISTE 
AMSTRAD 


OUVERT DE9hàli2h 
etdel4hà19h 
sauf lundi matin 


20, rue de la Gare 


(face au commissariat de police) 


62300 LENS 
Tél. 21.28.42.24 


fait la perception humaine introduit une 


aberration importante à laquelle nous som- 


mes habitués. Tout le décor se trouve 
courbé, comme nous le verrons sur les 
images que nous allons créer. 


Pour créer ces images, donnons deux 


versions de MOD1 et MOD2, qui contien- 


dront les éléments dont nous aurons 
besoin. 


Micronaute 


LE SPECIALISTE 
NANTAIS DU PC 


Revendeur qualifié conseil 


Me S.A.V. personnalisé 
e Contrat de maintenance 
e Logiciels - Livres 
e Location 


Adresse : 

9, rue Urvoy de Saint Bedan 
44000 NANTES 

Tél. 40.69.03.58 


A 225 DATA CD.2E.ED.38.FE.CD, ZE. ED. C5. 34 FL 
230 DATA CZ, AU,FE. O6. CE. AF.CE, 1i,CE, 11 Ex 
246 DATA C9. 00,00, 00,00 FL 
RH 
: TOTAL=È UE 
27ù FOR I=&A0O0 TO SAC üÙ 
= 280 READ 4$:A=VAL:"&"4+A#):PORE IA 46 
de 290 TOTAL=TOTAL+A NL 
“+ | 300 NEXT J 
Le 310 IF TOTAL <: Z4125 THEN FRINT "ERREUR EN DATA":STOF :2K 
san 320 CLS:PRINT'Routine chargie: ":FRINT 3FT 
Sn 3350 PRINT “âprel de cette routine: CALL &A000 :+0 
. 340 END :T 
>DT 
DE 
EM 
DA MESSE ‘ 
# isting VOIr 2 
>EJ 
?EU 1 REM VOIRZ 8 NOV 67 NE 
EG | Z2IF FD = O THEN CLS : PRINT'Fas d'acces direct a VOIR. XP 
ED ..":PRINT: PRINT" Je vous renvois sur MODI.,.":RUN"PIE": 
‘ET | + 
‘ER 5 CLS : LOCATE 17,12 : PRINT'VOIR...": # ‘EG 
‘EU L 7 IF L'=-1 THEN FRINT:PRINT"Pas d'obiet resident. reto ?VN 
EH ur sur MODI....":EL$="":C=0:CHAIN"MODI": # 
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RON DO À CCR EUR) SR ENS ENT VOS LC EN 


10 GOSUE 44000: ‘+ #XF PA) 14080 CLOSEOUT: ‘+ ‘LE 
20 BORDER 26#RND:CLS: # :0+ 14999 RETURN: ‘# XF 
25 IF Elg <: "" THEN LOCATE 2E,21:PRINT"Obiet resident" 4h ST 15000 REM Calcul et trace image + 2 
!LOCATE 25.23:FRINT ELS$:PRINT: °# el 15040 XL=XT(I.J)-XM: + FE 
20 LOCATE 13,10 : PRINT"  Desirez-vous un trace du tri :MU 15090 YL=YT (I, Ji-YMs + ‘FD 
edre *":G0SUE 65020: x 15060 IL=ITII.Ji-2M: * :FH 
7000 REM Representer un oblet #4 ‘IN 15090 XA=XLAXU+YLEYU+ZLAZUs à YF 
7010 AN = 20: % TJ 15100 YA=XLAXV+YLEYUEILEIUE 4 tE 
7040 XM = GX(K) + RE(K) # 7,5: # UC 15110 ZA=XL#KW+YL#YW+ZLAZH: + Y6 
7050 VM = GY(K) + REUK) + 27,5: 7% ?UE 15121 IF X4=0 AND YA=0 AND ZA=0 THEN IA=G. 001: + :LN 
7060 2M = GZ(K) + RE(E) # 1,9: °# :UG 15122 RO = SOR(YA#YA+ZA# ZA): ‘WG 
7080 X6 = GX(K):YG=-6Y(K):1G=6Z (HI): # }CY 15125 IF XA=0 THEN B=90:6070 15127: + Et 
7090 Cx = 46 - %M : CY = YG - M: C2 = 25 - ZM: # FB 15126 a par 
7100 DD = SOR (CX#CX + CYaCY ): + WU 15127 IF XA:0 THEN E=E+190 : UV 
7110 IF DD = © AND CZ : O THEN TE = Ds KI = FI / 2: G :W 15120 IF Yä=0 AND ZA=0 THEN 4= 60170 15180: + “D 
OTD 7210: * 15140 IF ZA=0 AND YA >0 THEN A=-90:G6070 13190 : # LU 
7120 IF DD = O0 AND CZ : Ü THEN TE = 0: KI =-FI / 2: 5 MH 15150 IF ZA=0 AND YA‘O THEN A=90:G60T0 15180: « KE 
OTO 7EiU: # 15160 A=-ATNUYA/ZA):A=A#1BO/PI : * IN 
7130 KI = ATN (Ci/TD): * PM 15170 IF ZA<O AND YA :0 THEN A=ä-180: + E 
7140 IF CXx = 9 AND Ci : 0 THEN TE = 1.57 : GÙTO 7210: # :MC 15172 IF ZA <0 AND YA:0 THEN â=4+180: # EC 
15174 IF ZA <0 AND YA =0 THEN A=1Bü: + ‘AG 
7150 IF Cx = 0 AND CY : O THEN TE =-1,57 : GOTO 7210: # NF 15180 X=B4SIN (ARE L/180) : Y=B4C0S (A4PI/ 180): # LE 
15240 KE=Z1T+X#I00/AN : # :00 
716 TE = ATN (CY/CX): +# :FG 15250 YE=200+Y#1700/AN : #4 ON 
7170 IF CX : O AND CY » O THEN TE = FI + TE: # ‘DM 15260 IF J=0 THEN FLOT KE, YE. CU: + 1 
7180 IF CX : © AND Cr : O THEN TE = FI + TE: +# “DL 15270 IF J{:0 THEN ORAN KE. *E. CO, 0: + CE 
7190 IF Cx < © AND CY = © THEN TE = FI: # >AK. 15992 RETURN: + 46 
7200 IF CX = © AND CY ‘© O THEN TE = - FI/2: * *DU 17000 REM TRACE TRIEDRE * TH 
46 FD 17005 CO = 3: °* LE 
:FE 17010 OPENIN"TRIEDRE": 4 :TG 
T2SC COS (TE) : ST = SIN (TE: # A 17020 INPUT#9,C0(H),6X,6Y,6Z,RE,L: + ET 
7240 CK = COS (KI) : SK = SIN (Kiis: # YO 17020 FOR ! = à TO L: # MF 
7250 AU = CK4CT : YU = CK4ST : ZU=SK: °* ?BC 17040 INPUT#9,N(I): +# NT 
7260 XV = - ST : YV = CT : IV = 0: ‘# “VD 17050 FOR J = 0 TO Nil): * FX 
7270 XW = — SK#CT à: YW = - SK#ST : 2H = CH: + *DD 17060 INPUTH#SXT (I, J)YTEI,J),2T(I. Je + "HG 
7280 GOSUE 82000 : # :LÈ 17070 GOSUE 19000: + :LE 
7290 ir C = 15 Inen GOSUE 14000 à: GOSUE 170 à: 010 46 17080 NEXT J 2 NEXT is + PT 
18000: "+ 17090 CLOSEIN: * Bt 
12000 REM Objet deja present en memoire* HT 17999 RETURN: * :XJ 
12910 CO=1: # PRJ 18000 REM RECHARGER ET LESSINER OBJET * GF 
12020 FOR 1 = O TO L + FOR J = 0 TO N(): # EG 18005 CO = 3 :°# >UG 
12070 GOSUB 15000: °# FLY 18010 OPENIN"SAUVOBJ" : # T4 
12040 NEXT JENEXT 15% "PA 18029 INFUT#9,CD(H) GX) ,GY(K) ,GZ(KI,RE(KI LE + >QE 
12030 C=0: °* ‘HB 18070 FOR 1 = 0 TD L: # AT 
12060 !SCREENCOPY, 2, 1:SOUND 1,50 : LOCATE 1,1:PRINT"Har >CG 104 INFUTÉS ils à Hé 
dcopy ?":GOSUB 85020:1IF C=<15 THEN :SCREENCOFY. 1,2: CALL 18050 FOR J = 0 TO Nili: Ft 
2A000: PRINT#8: PRINT#E 18040 INPUT#9,XT (I, TT ne 4 HH 
12999 SOUND 1,200 : CHAIN"P1B": # >XX 18080 NEXT J + MEXT Is # PA 
14000 REM SAUVEGARDE OBJET RESIDENT* FR N 18090 CLOSEIN: * -Cà 
14005 CD = 1:°# :TK |E ÊT 18100 !ERA."SAUVOEJ": * :Rà 
14010 OPENOUT"SAUVOBJ": x >UM Él 18110 C = 0s'# “HE 
14020 FRINT#9.CD(K).BX(K),GY(KI.GZ(K)RE(K) Le # ;üx 18115 SOUND 1.100: # LG 
14030 FOR 1 = 9 TD L: # MN 18117 ISCREENCOPY, 2, 1: SOUND 1,59 + LOCATE 1,1: PRINT'Har CR 
14040 PRINT#9.N{I): "+ NL 
14050 FOR J = Q TD Nil}: °# 3FU 
14060 PRINT#9,XT(I, JD, YTII.J),ZT(I,J): "+ HA 
14065 GOSUE 15000: ‘* >LF 
14070 NEXT J : NEXT I: # >FV 
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va Mt MN 


dcopy *":GOSUE 65020:IF C=iS THEN :SCREENCOFY. 1.2: CâLL 
&AOOO: PRINTHB: PRINT#8 

18999 CHAIN"F18": + 

44000 REM Calcul de CG et de RE * 
44010 GX=0:GY=0:GZ=20:N=0:RE IR) =0: + 
44020 FOR I=Ù TO L: FOR J=6 TO Nil:: +# 
44025 N=N+i: + 

OZ GXEGKH+ET (I, Jis + 

44040 GY=GY4YT (I, J): # 

44050 G2=G2+IT(I,J1: "# 

44Gb0 NEXT JINEXT I: # 

44070 GX(K)=GX/N: 

44080 GY{H)=ZGY/N: # 

44090 G2Z(H)=GZ/N: # 

44100 FOR 1=0 10 L:FOR J=ù TO Nil:z + 


44110 R=SQR LixTiI, ia 1,J)-BX (HI +0 TUE JG : 


YEN CYT CIS J)-GY HD) # CTI, Ji 

+ 
44H20 IF REUKI LR THEN REG: =R: + 
441170 NEXT JiNEXT ! 

44999 RETURN : * 

6200 REM CADRE +# 

62010 CLS: +# 

82015 BORDER 14: +# 

62020 PLOT 0,0: # 

82030 DRAW 619,0,7: + 

52540 DRAW 619,799,7: +# 

82090 DRAW 0,:69,1: x 

6206) DRAW 0,0,3: +# 

62070 C0 = 3: °+# 

62998 RETURN: ‘# 

65000 REM Saisie caractere # 
65005 PRINT: °# 

65010 FRINT'Votre choix :":°# 
65020 C4=""sCE=INEEYS: IF C$="" THEN 65020: + 
83030 C=ASC (CS) : # 

N0ZS IF C=1T OR C< 32 THEN C=27:6010 650éü: +* 
65045 IF C:96 THEN C=C-96:G60T0 65060: # 
85090 IF C:96 THEN C=C-64: °# 

63060 SOUND 1,25,1: # 
65335 RETURN: +# 


-BZ\EH# (IT II, Ji-GZit: 


Listine des 


i REM DES 6 Nov 87 


2 IF FD=Î THEN Z3ü: # 
3 SOUND 1,20: CL 
:FRINT'"'Je vous renvois sur MOD1... 
1ü CLS: °# 


sRUN"P18": 4 


ue 


T © 
Mi De M mu 2e 


TZ 


NU D 
E 


S:FRINT'Fas d'acces direct a DES":FRINT 


ANANA NAN 


EF 


DANSE 


15 FRINT'MENU FRINCIPAL':FRINT: « 
20 FRINT"a-Creer un obiet": + 
20 FRINT"'b-Completer un onjet": + 
40 FRINT"c-Stocker un obiet": + 
Sû FRINT'a-Charger un oüjet": + 
£0 PRINT'e-Gestion de biocs d'obiets":FRINT'+-Gestion 
u cataloque":PRINT"3-Manipuler objet où Dioc":FRINT'H-F 
usions diverses": PRINT ii PRINT" i-Ficrier obiets stand 
ards":FRINT"E-Voir" 

PRINT "l-Creer une image": 
80 PRINT'm-": PRINT a" PRINT" 5-": 
180 FRINT'o-uitter": # 


[a 


PRINT'E-": 


195 ÏF ELS NU THEN LOCATE 22,21: FRINT'Übiet resident 
MeLOCATE 22,27: PRINT ELS: + 
197 IF L:i-1 THEN LOCATE 31.2ZT: PRINT L+ on + 


198 LOCATE 1,22: + 

200 GOSUE e500û: REM Saisie carac 
205 IF C =11 THEN CHAIÏIN"VOIRI": # 
210 IF C=17 THEN ENL: # 

220 IF C£i OF C:17 THEN 10: # 

225 IF C = 16 THEN GÜSUE 17m: G0T0 it: # 

230 ON © GOSUE 84G00, e40û0, 84000, SOU, SAC, sd 
0,62006, 80000, 6400, 50000, 
240 (ERA, "#4, B4E ts + 

999 GOTO 1Ù 

3000 REM Chargement objet + 

9001 FI=i : REM FLAG de non trace + 
3010 INFUT'Nom de ! objet a charger": 
#4 

5017 ON ERROR GOTD LZOU0: + 
9020 OPENIN ELS$(HI: + 

9025 INFUT#9,CO(K),GX(K) ,GY(E: 
t a (L+i) chaines # 
3010 FOR 120 TO L 
de Ua + 


ere + 


ah: 
bit 


27000, 80000 


ELSIH) SELS=ELS IE: 


.GZIEI RE(EI LIREM L 0b)e 


: REM Pour toutes les chaines allant 


9040 INPUT #9,N(1): REM Nombre de segments sur chaine * 


9050 FÜR J=G TO N(I):REM Four tous les points de ia cha 
ine d'indice | # 

oÛ6Ù INPUT #5,4T(1, Ji, YT(l,J),2TiI. Ji: 

5065 IF FI=0 THEN GOSUB 13000: REM ls 

9070 NEXT JeMEXT 1: °# 

9080 CLOSEIN: # 

3999 RETURN: ‘# 

7000 REM CALCUL FARAMETRES VISION + 

7090 Cx = XG - XM : CY = YG - YM : C1 = 16 - 2": + 

7100 DD = SUR (CKaCX + CY4CY 1: +# 


2110 IF DD = G AND CZ : D THEN TE = ut El = FI {2:06 
OTO 7210: + 
7120 IF DD = O AND CZ 4 G THEN TE = 0: El =-F1 : 2: 6 


OTD 7£10: # 
715ü KI = ATN (CZ/DD 
7140 IF CX = 0 AND CŸY : 


GOTO 7210: 


# 


7150 IF CX = G AND CY © O THEN TE =-FI/2: 


7160 TE = ATN (CY/CXI: ‘x 


7170 IF CX < © AND CY > O THEN TE 


PI + Es" 


0 THEN TE = FI/2 + GOTO 7210: # » 


“WU 
V V 


“eg * LA PE LD ps. ES » DA Li A vY, VANAY 
ANR EMEA EEE ET 


L] CS 


7180 IF Ci < © AND CY € 0 THEN TE = FI + TE: +# 3DL 15180 X=BA4SIN(A#PI/ 180) : Y=B4COS (A#FI/ 180): + 3LF 
IF CX £ G &ND CY = 0 THEN TE = FI: +# 28€ 15240 XE=713+X4200/AN:REM COORDONNEES ECRAN + 2NC 


Ex = ü AND CY : © THEN TE = - FI: # DU 15290 YE=2004+Y#200/AN : + 5" 
#FD 15260 IF J=0 THEN FLOT XE,YE : + HU 
°FE 15270 IF J£sG THEN DRAW EVE, 1,0: + AL 
OS (TE) : ST = SIN (TEi: # #YV 15999 RETURN: + #X6 
OS (EI? : SE = SIN (EL: + ar 18909 REM Acquisition elements * :BE 
ACT + YU = CR#ST à ZUEGK: + *BC 18010 INFUT'Nombre d'eilements “:E:E=E-1: + :0Y 
ST : YV = CT: IV = 0 + = VD 18026 FOR K=0 TO E:FRINT"'Element numero ‘;K+i: INPUT ELS VI 
7270 XW = - SEXCT : YW = — SH#ST : 24 = CH: # :DD (H)INEXT Es: + 
7995 RETURN : + + 18999 RETURN: ‘# 2Xk 
10000 REM dessin par C10c * UF 22000 ‘Erreur sur objet :LA 
1000 FI=ûÿ : REM FLAG trace *# VF 23999 CLS:PRINT' Objet inexistant... “:SOUND 1,20:FOR tt= ‘RQ 
10010 CLS:PRINT'DESSIN DU BLOC':FRINT: + : JG à TO 1000:NEXT:EL$(Ki="":ELg=" "RESUME 10 
15046 FOR E = 0 TD E: * ME 27000 REM REFRESENTER UN OBJET # AN 
10050 PRINT ELS(E): + NL 27005 CLS: # : NH 
10095 NEXT KE : # JE 27010 PRINT'REPRESENTER UN DEJET':PRINT: +# au 
10060 FOR TT =0 TO (E+ii#500 : NEAT TTiICLE: + :HE 27029 PRINT:FRINT"a-0bjet en memoire": * :FJ 
10065 GOSUE &2000:REM tracer cadre * CF 27030 PRINT'b-Dessin par elements": * ME 
19505 FOR K = O TD E: # ML 27040 PRINT"c-Dessin par bloc":FRINT: # :MX 
19510 GOSUB SO20:REM Charger et tracer # >6D 27050 GOSUE 45000 : PRINT : CD=C:REM Stockage choix typ ‘MD 
10520 NEXT K:°# NE AD e de dessin # 
19999 RETURN: # °XE É 27055 IF CD=i THEN GOSUE 30000 “WA 
11000 REM DESSIN FAR ELEMENTS # #2L 27057 IF CD=3 THEN GUSUE 71000 2WF 
11075 GOSUB 62600: # a: 27160 CLS + FRINT'a-Saisie point de vue au ciavier":PRI :QÙ 
11100 FOR K=0 TO E:'# 1 ÉD Nr 
11119 GOSUB 5020:REM Charger et tracer * >6A ÉD 27170 PRINT'b- (Saisie ecran: “:PRINT:GOSUB 6S000:CSAISI :AG 
11120 NEXT E :°# JC ÉD E-C:REM Stockage type de saisie * 
11999 RETURN : * XD 27190 FRINT:FRINT"Coordonnees observateur :":PRINT: # JV 
12000 REM Objet deja present en memoire >HD Æ 27200 INPUT"X=": Ms + #PM 
12005 IF L=-1 THEN CLS:FRINT'"Pas d'objet en memoire, eh TU 27210 INFUT"Y=":YM: + +FQ 
, tarceur !':GSOUND 1,50 :FOR TT=i TO 600: NEXT TT : 60 27220 INPUT"Z=": ZM: PRINT: °# 4H 
T0 10 UM 27210 FRINT'Coordonnees point vise "2 PRINT: + 10 
12010 GOSUB 62000:REM tracer cadre >EW Æ 27240 INFUT"XG=": {G: °# :Qä 
12020 FOR 1 = 0 TO L': FOR J = © 10 N(L):REM POUR TOUTE 60 E 27250 INPUT" YG=":vG: # :0D 
S LES CHAINES ET TOUS LES FOINTS DE CES CHAINES : 27260 INPUT"26="3;2G: PRINT: °% RC 
12030 GOSUE 15000:REM TRACE IMAGE ECRAN >64 27270 FRINT'Ouverture angu laire"s # KE 
12040 NEXT JINEXT I NZ E 27280 INFUT"20 degres par defaut ":AN$: *# ‘FY 
12999 RETURN FC 27285 IF AN$="" THEN AN = 20 : GOTD 27390: # *EM 
15000 REM Calcul et trace 1mage # 2 27290 AN=VAL (ANS): * 2MF 
15040 XLEXT(I, Ji -XM: + ?P1 27350 CLS : GOSUB 7000:REM Calcul des parametres de vis :CB 
15050 YL=YT(I,J)-VM: + :FÈ ee # 
15060 ZL=ZT(I,J)-2M: + PH 27360 IF CD=2 THEN GOSUB 18000:REM saisie elements +* VU 
15090 XA=XL#XU+YLæYU+ZL4ZUs #4 YF 27370 #£E 
15100 YA=XL#XV+YLEYV+ZLEZVs 4 :YB 27:80 ON CD GOSUB 12000, 11000, 10000: ‘+ :EG 
15110 ZA=XL#XW+YL4YW+ZL4ZW: 4 a 27390 :SCREENCOFY, 2,1: SOUND 1,50 : LOCATE 1,1:FRINT'"Har CV 
15121 IF XA=0 AND YA=0 AND ZA=0 THEN ZA=0.091: % FLN dcopy ?":60SUB 65020: 1F C=15 THEN !SCREENCOPY, 1,2: CALL 
15122 RO = SOR(YA#YA+ZA#ZA) : € WG &AO0O: PRINTRE: PRINT#8 
15125 IF XA=0 THEN E=90:G0TO 15127: °# BK 27998 CD=0:C=0: ‘# :0F 
15126 B=ATN(RO/XA) :B=B#180/PI: °% 20 27999 RETURN: ‘# ?XK 
15127 IF XA<O THEN E=B+180: * *UU 28000 REM CHARGEMENT FICHIER BLOC >CB 
15130 IF YA=0 AND ZA=0 THEN A=90:60T0 15180: + #KD 28010 INPUT"Nom du bloc ";BL$ EN 
15140 IF ZA=0 AND YA >0 THEN A=-90:G0T0 15180: ‘* } A 20015 ON ERROR GOTO 45000 


15150 IF ZA=0 AND YA{O THEN A=90:G0TO 15180: °#* 
15160 A=-ATN(YA/ ZA) : A=A#180/PI: °# 

15170 IF ZA‘G AND YA :0 THEN A=A-180 : °# 
15172 IF ZA £0 AND YA{O THEN A=A+i80: °# 

15174 IF ZA £0 AND YA =0 THEN A=180: * 


40 


\ À 


28020 OPENIN BLS 

28020 INFUT #S,E 

28040 FOR Ezü TO E 

28050 INPUT #9,ELS (ki 
28080 INPUT #S,C01K) 
28075 INPUT #9,6Xiki 
28080 INPUT #9,6Yi{E) 
28090 INFUT 49,67 (KE) 
28106 INPUT #9,RE (KE) 
28110 NEXT K 

28120 CLOSEIN 

28999 RETURN 

30000 ‘OBJET EN MEMOIRE © 
002 IF Lé:-{ AND EL#="" THEN FRINT'Obiet 
sent en memoire": PRINT: PRINT" On garde °":GOSUE 
F C=15 THEN 30959 

30010 IF EL$ £:"" THEN FRINT'Objet resident 
2FRINT On garde ?":G0SUE 83020 
30020 IF EL$<::"" AND C=15 THEN 
30040 GOSUE 3000 
30999 RETURN 

31000 REM BLOC EN MEMOIRE : 
31010 IF BL$ <:"" THEN FRINT "Bloc resident 
"On garde *":G0SUB 65020 

31030 IF BL$£:"" AND C<15 THEN 31995 

31045 FRINT:GOSUB 28000 
31999 RETURN 

45000 REM ERREUR SUR BLOC 
45999 SOUND 1,20:CLS:PRINT'Eloc inexistant, .": 
TO 1OOC:NEXT :RESUME 10 
46000 REM ERREUR SUR IMAGE 

46999 CLS:FRINT" Image inexistante... 
=Q TD ZOUO:NEXT:RESUME 10 

60000 “ROUTINES NON ENCORE CRÉES 
80010 CLS:SOUND 1,50:PRINT'"'Routine non encore 
FOR TT=0 TO Z00:NEXT 
60999 RETURN 

62000 REM CADRE * 
62010 CLS: °# 
62015 EORDER 14: °% 

2020 FLOT 0,0: 4 
62030 DRAW 629,0,3 : % 
62040 DRAW 4619,399,3: °% 
62050 DRAW G,399,3: °% 
62060 DRAW 0,0,3: °% 
62999 RETURN: ‘# 
63000 REM CHAINAGE SUR MOD2 
63999 CLS:CHAIN"F19 
64000 REM PASSAGE SUR MOD1 * 


&g0a0s Ï 


30995 


FOR TT=0 


“SOUND i, 


cree... ": 


Sans nn 8re : 


"HELS: PRINT AL 


BL: PRINT : 


EU FOR TT à 


À OA A ULLLES LA VAN A ONE A TON GOT XX 


84999 CLS:CHAIN"FIS": + 

&3000 REM Saisie caractere +# 

63019 PRINT:FRINT "Votre choix 1°: + 

Ci 65070 CH=INFEYELIF C$="" THEN Su: 4 
bSÛZD CEASC (CE: : + 

&Sü4G IF C:96 THEN C2C-56:G0T0 655 + 
6g0Sù IF C:S6 THEN C 


65325 RETURN: + 


isting plè 


{ REM PIB / MODI : 8 Moy 7, pour chainage sur MODS ( 
19} 
2 IF FD=i THEN ZT: + 


| 5 FD=i: 

El et ri + 

À 4 DIM XT:149,122 V7 (49,12), LT 449, 123,145: .EL# 129), C0 (79 

12 1,6K(29),6Y(29;,62{29),RE (29: ,4E (12; ,YE 12. XEBIStI2), + 

| EFIS(12),S5T#(20): + 

S] 7 GOSUB 24000:REM Choix 

D 'iC CLS: +* 

TN 15 PRINT'MENU FRINCIFAL': PRINT: # 

à 20 PRINT'a-Creer un objet": * 

ET 30 PRINT'b-Compieter un objet": # 

El 40 FRINT'c-Stocker un objet": # 

À 50 PRINT'd-Charger un objet": # 

‘| 60 FRINT'e-Gestion de blocs d'onjets":PRINT"#-Gestion a 
u catalogue": FRINT'9-Manipuler objet ou bioc':FRINT'h-F 

| usions diverses ":FPRINT'1-": PRINT" j-Fichier objets stand 
PB] ards':PRINT'E-Voir" 

À 70 PRINT "l-Creer une image": * 

À 80 PRINT'm-": PRINT "ne PRINT "0": PRINT =": * 

180 PRINT'q-Quitter": # 

1 195 IF ELS {: 

2) ":LOCATE 22,2%: PRINT EL$: ‘# 

É1 197 IF L£i-1 THEN LOCATE 21,223:FRINT Lis" ch,"s 4 
| 200 GOSUB 65000: REM Saisie caractere: * 

É| 205 IF C=11 THEN CHAIN"VOIR2": ‘# 

210 IF C=17 THEN END: * 

220 IF C = 12 OR C=9 THEN CH&IN"DES": # 


L = - i:REM Initiaiiser L 


des couleurs* 


 4000,63000, 20000: REM etc... 

| 999 ERA, "#.bak":CLS:G60TO 10:REM Boucle MENUX 
| 1000 REM CREER UN ELOC * 

1010 CLS : PRINT'CREER BLOC D OBJETS":PRINT: # 
1020 INFUT'Nom du bioc “;BL$: * 

1030 INFUT'Nombre d'elements ";E: # 

1040 E<E-1: "x 

1050 FOR K=0 TO E: # 

1060 PRINT"Objet numero “;k+i: °# 

1070 INPUT EL$(K):GOSUB SO20:REM Charger objet * 
1090 NEXT K :°# 

1100 GOSUB 6000: . Stockage fichier-bloe # 
1999 RETURN : 


L+i chaines dans ©b} : 


230 ON C GOSUB 9000,9010,8000, 5060, 21000, 22500,64000,& :F 


NX 


"THEN LOCATE 22,21:PRINT'"'Obiet resident :ME 


VIN QT ON SANT IN AS ANSE 


ALAN as AN Li+ 
2000 REM LECTURE ELOC « :RH 7100 NEXT k: # »CF 
2010 CLS : PRINT'LECTURE BLOC":PRINT: # :6V 7110 CLOSEIN: ‘* ;VA 
2020 GOSUB 31000 CE #1 7999 RETURN: ‘# :CH 
2035 FRINT'"Eloc ":BLS:PRINT: + M 8000 REM STOCKAGE OBJET :T0 
2040 FOR F=0 TO E: +# 3LJ 8010 INPUT"'Nom de 1 objet a stocker" :ELS#:EL#1KI=ELS$ *EL 
2050 PRINT ELS(Ki: + MA 8015 GOSUB 44000:REM CALCUL GX.GY,62,RE “HR 
2060 NEXT K :°# :C6 8020 OPENOUT EL:$ (K) NW 
2070 FOR TT=0 TO (E+1)#200 : NEXT TT:REM Temporisation :1À 8025 FRINT #9,C0(K),6X(K),6Y(K),GZ(K),RE(K) ,L:REM L'OBJ :WR 
4 ET 4 {L41) CHAIMES 
2999 RETURN: ‘* QC 8030 FOR 1=0 TO L: REM Pour toutes les chaines ailant d >DY 
3000 CLS:PRINT'DETRUIRE BLOC+0BJETS" HN edal 
3999 RETURN “HD 8040 PRINT #9,N(I):REM Nombre de segments sur chaine 5 X4 
4000 CLS:FRINT"COFIE BLOC+DBJETS SUR AUTRE DISQUETTE":F Mk 8050 FOR J=0 TO N(I): REM Four tous les points de La ch :DR 
RENT aine d'indice I 
EE HE 8060 PRINT #9,XT(I,J),YTCI, Ji,2T(I, Ji FF 
5000 REM CHARGER UN OBJET: +# VD ie rs + 
SOC INFUT'Nom de 1 oùjet a charger ‘;ELS#(K) :EL#=EL# 1h): JE 8999 RETURN ur 
+ d À CÉD , : T 
5017 ON ERRÜR G0TO 23000 >RI ie Er : 
5020 OPENIN ELS&(Hi: à >NB A 
9025 INPUTH9, CO(K) BK) BV UK) ,BZUR) REUK) ,L:REM L'obje :H . Sn . “ 
t a (L+ir chaines *# On _ : | 
6070 FOR 1=0 TO L : REM Pour toutes Les chaines allant ?E à 
de Ü al + re a . n : 
5040 INPUT #9,N(I): REM Nombre de segments sur chaine * :YY .. Loeb wi . 
5050 FOR J=0 TO N(I):REM Four tous les points de la cha ?CN Loue | | 
che d'indies À à 9070 PRINT'{#-Creer un arc de cercie MX 

)90 60S DO: REM S ter >FO 

S0b0 INPUT #9,ATL,J,YTUL, JD Ti Lit à 62 D NE AE PES CRT FAURE . 
AIO NEXT INT Li à ue 9100 IF C7 OR C =-S1 THEN 9999 AU 
S080 CLAGEIN se VE 9102 IF C<0 THEN 9000 >NR 
orne . 9110 ON C GOSUB 24000: REM, etc... AL 
5999 RETURN: ‘# >0F 006 RETEN . 
DUT RES ie 14000 REM INCORPORER LA CHAINE À L'OBJET* >BX 
&u0s FRINT'Je stocke Le bioc “:BLSE: # :J4 14999 RETURN: # {F 
ee a 18000 REM ARCTANGENTE+ R1 
GO PRINT #9,E: * Gà 18999 RETURN: ‘# {K 
ONE SES en 20000 ‘FICHIER OBJETS STANDARDS :CH 
6040 FRINT #9,EL#(H): + ;P2 200 HTIEN ë 

HSÙ F G Ke 3 - # 
ne . 21000 REM GESTION DE BLOCS D OBJETS* DT 
pe PRINT #9 GY(K): : PE 21010 CLS :PRINT"GESTION DE ELOCS D OBJETS": PRINT: #  >Y1 
8080 PRINT jo G7(K: ï PJ 21020 PRINT'a-Creer un bioc d'objets": * 3FY 
8090 PRINT de PEUR: : SH 21020 FRINT"b-Charger et lire un fichier bloc" CH 
&100 NEXT Ke . CE 21040 PRINT"c-Degraisser un bloc": * KX 
8110 CLOSEOUT: ‘# LEA 21050 FRINT"d-Detruire un bloc": + >6N 
4999 RETURN + Lu 21060 PRINT'e-Copier ensemble standard": * :UG 

ae : ; ‘ 21070 FRINT"+-Copier un bloc et ses elements": # CU 
Le ba nb FES BEA ds 21080 FRINT"q-Detruire bloc+objets":°#* 2NL 
7005 FRINT'Je charge le bloc “;ELé: * 3JN 21090 FRINT"h-Compacter un bloc": # :JN 
7007 ON ERROR G0TO 45000 ÈRE 10 FR ete or bide  p7 
PACA de 21110 GOSUE 45000: ‘« LL 
. ti 21130 IF C>9 OR C « O THEN 21999 1 
3040 INPUT #9,ELS (6): "+ di 21135 IF C=9 THEN C=8 : CHAIN"MOD2 }11 


21140 ON C GOSUE 1000, 2000, 28000, 29000, 27000, 4000, 3000, 3EC 


7090 INPUT #9,CD(K): °# 
7060 INFUT #9,GX(K) 2: °% 
7070 INFUT #9,GY{K): # PL 
7080 INPUT #9,GZ(K): # 
7090 INPUT #9,RE (KE): °# 
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er 


à Ÿ 


42000 

21999 RETURN 

22000 ‘OPERATIONS SUR CATALOGUE 
22999 RETURN 

23000 ‘Erreur sur objet 


23999 CLS:PRINT'Objet inexistant... “:SOUND 1,2G:FOR tt= 


G TO 1000: NEXT:ELS$(KH)=""sELS=""S RESUME i0 
24900 REM CHOIX DES COULEURS * 

24999 RETURN: °# 

25000 REM TRACE EN FLAN DE L'OBJET EXISTANT # 
25999 RETURN: °# 

26000 REM CREER DES CHAINES AU CLAVIER 


PC 
2CK 
FD 
:D4 
:RÈ 


»\D 


XG 


NF 
#XH 


-FE 


26010 IF L=49 THEN PRINT'Trop de chaines. desole...":60S >6F 


UE 65020:G0T0 26999 

26020 L=L+i: REM Incrementer effectif de chaines 

26025 CLS: PRINT'SAISIE CHAINES AU CLAVIER": PRINT 
26030 INFUT"Nombre de segments “iN(L: 

26035 IF NiL):12 THEN FRINT “12 segments maxi !" : GDS 
E 55020:G0T0 26025 


26040 FOR J=0 TO Nil): REM Boucle de saisie de coordonn ;J 


ees point 

28050 PRINT'Point numero "is J+#i 
26066 INFUT"XT="S XT(L, J) 

26070 INPUT"YT=":YT(L, J) 

26080 INPUT"27T="32T(L, Ji 


26090 NEXT J 

26100 PRINT" Une erreur ?":GOSUE 85020: IF 
C = 15 THEN 26025 

26130 FRINT" Une autre chaine *":GOSUB 85020: 


F C = 15 THEN 26010 

26999 RETURN 

27000 ‘COFIER ENSEMELE STANDARD 
27999 RETURN 

28000  DEGRAISSER UN BLOC 
29959 RETURN 

29000 “DETRUIRE UN ELOC 
29010 GOSUB 31500 

29020 PRINT: ERA, BL$:EL$="" 
29999 RETURN 

30000 “IDENTIFICATION OBJET 


20002 IF L'&+ -1 AND EL$ ="" THEN PRINT'Obiet sans n :G 
om present en memoire":FRINT:FRINT"On garde ?":G0SUE 65 


020: IF C = 15 THEN 30999 

30010 IF EL$ <> % THEN PRINT'Objet resident ";EL$ 
:PRINT:PRINT"On garde 7": GOSUE 65020 

30020 IF ELS é> "" AND C = 15 THEN 70999 

30040 GOSUE 5010 


30999 RETURN 

31000 ‘IDENTIFICATION BLOC 

31010 IF BL <> "" THEN PRINT'Bloc resident ";EBLS$:FRINT 
:PRINT'On garde ?":GOSUE 65020 

31020 IF BL$ € “" AND C= 15 THEN 31999 

31040 PRINT: INPUT'"Nom du bloc “;BL$:G0TO 7000 


2 


?BE 
?CH 
>PC 
TK 
>YÜ 


>Ak 
?TE 


HA RTE Q ANS AN ANT NNQ 


CD A we , 

31999 RETURN :FD 
32000 REM CREER UN CERCLE +# Ur. 
32999 RETURN: + iF 
33000 REM CREER ARC DE CERCLE+* ëL 
32999 RETURN: +* : A6 
34006 REM CREATION OBJET DE REVOLUTIOH# :Jü 
24999 RETURN: # XH 
35000 REM OEJET D'AXE Dix :LG 
35999 RETURN: +# 4] 
36000 REM DEJET D AXE Ovx LR 
36969 RETURN: +# Ft 
37000 REM OBJET D AXE O2: # LT 
37999 RETURN: + ‘A 
42000 ‘COMPACTAGE BLOC :DE 
42010 GOSUE 31050 LL 
42020 K=0:GOSUB 5020 :NR 
42020 FOR K=1 TO E Li 
42046 OPENIN EL#(K) NE 
42050 INPUT#9.CD(K),8x ik: ,GriE:,621h1.RE HI. LI :Q, 
42060 IF L+L1:45 THEN PRINT'COMPACTAGE IMPOSSIBLE. ..":S € 
OUND {.20:GOSUE 85020:G60T0 4:995 

42070 FOR I=û TO LI :LF 
42080 L=L+1: INFUTHS.N(L: TF 
42090 FOR J=û TO NL: NF 
42100 INPUT#S,XT{L, Ji dr 
42110 INFUT#S,YTIL,J: :[M 
42120 INFUT#S,2T(L,J) -0F 
42130 NEXT JiNEXT I #NC 
42140 CLOSEIH :UE 
42150 NEXT K :EH 
42160 BL$="":EL#$="" MN 
42999 RETURN PF 
44000 REM CALCUL DE Gi,6+,62 et de RE +# DE 
44999 RETURN: ‘* :XJ 
45000 REM ERREUR SUR BLOC sil 
45999 SOUND 1,20:CLS:PRINT"Bloc inexistant... ":FÜR TT=0 >LZ 
TO 1000:NEXT :RESUME 10 

34000 REM CREER UN FRISME* VR 
94969 RETURN: ‘# >XE 


60000 REM DEFINITION DU TYFE DE SAISIE DE CHAINE FLANE* ZE 


60999 RETURN: ‘# #46 
61000 REM SAISIE ECRAN* #RY 
61999 RETURN: # 4H + 


&3000 CLS:PRINT"'Routine non encore cree": SOUND 1,20: F JF 
OR TT=ù TO Z00: NEAT 


63999 RETURN :FJ 
64000 REM CHAINAGE SUR MOD: VF 
64999 CHAIN"P19 ‘EG 
63000 REM Saisie caractere* . | 

65010 PRINT:PRINT"Votre choix 1": + #6F 
69020 CH=INKEYS: IF C$="" THEN 65020: + *BÈ 
65030 C=ASC(C#) : ‘# #EE 
65046 IF C:96 THEN C=C-96:60T0 65525: # :DK 
65050 1F C{96 THEN C=C-64: ‘# TE 
65535 RETURN: ‘# :WH 
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TRAITEMENT 


L'IMAGE 


1"° partie - Initiation 


Daniel VASILJEVIC 


on, il n’y a pas d'erreur d'impression ! C'est un 

message vidéo que j'ai réussi à intercepter avec 

beaucoup de mal. Hélas, mes moyens 
techniques n'étaient pas à la hauteur, la liaison 
était médiocre et le parasitage très fort. Ainsi 
l’image captée, que voici, n’est pas de très bonne 
qualité. À vrai dire, elle est illisible. J'avais 
néanmoins décidé de la montrer au célèbre 
professeur AMSTRADOVIC dont je me flatte d’être 
un cousin très éloigné. Il fut tout d’abord surpris, 
mais un sourire malicieux remplaça aussitôt 
l’étonnement que je lisais sur son visage. ‘’Cher 
cousin, me dit-il, pour être lue, cette image doit être 
traitée au Btédlible. Personnellement, je n’ai pas le 
temps, mais voici un excellent ouvrage dans lequel 
vous trouverez tout, ou presque, sur ce suiet/”. En 
disant cela, il me tendit un énorme volume. Malgré 
un léger frisson que j'ai ressenti au vu du numéro 
de la dernière page (6128), je le remerciai 
vivement et le quittai en regrettant d'avoir mis le 
pied dans sa tanière de savant. Dès les premières 
pages je me rendis compte que le traitement 
d'images nécessitait soit un matériel électronique 
perfectionné soit un ordinateur, qui, à défaut d’un 
traitement analogique, pourrait permettre un 
traitement numérique de l’image. Mon fils avait un 
AMSTRAD CPC. J'optai donc pour cette solution, la 
seule à ma portée, mais qui présentait un 
inconvénient : je ne pouvais disposer de la machine 
qu'après la destruction du dernier vaisseau ennemi, 
ou après la libération de la princesse une fois 
l'énigme résolue ! Ceci m’obligea à travailler tard 
dans la nuit, ce qui n’améliora nullement mon 
humeur. La lecture du fameux ouvrage y était aussi 
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pour os chose. Je vous donne un tout petit 
extrait de la partie théorique : 


Un point P est d-inessentiel pour E si : 
I)N (pin Eu = NDUVPL PE 
2) N (V(Phn{EulP))=N (IV(P)-PinE)" 


Cela vous plaît-il ? Moi, j'adore ! Pour vous éviter 
une pareille lecture j’ai décidé de vous livrer 
l'essentiel sous une fécrs plus simple. Les petits 
programmes en BASIC vous aideront à mieux 
comprendre les principes et leur mise en pratique. 
En aucun cas ils ne doivent être considérés comme 
routines utilitaires. Seules les routines en langage 
machine seront assez rapides (et encore). 


GENERALITES 

Avant de vous parler de ces programmes voyons 
quelques notions élémentaires. 

Une IMAGE est composée d’une GRILLE de | 
POINTS. Ces points sont définis par les positions 
qu'ils occupent dans l’image d’une part et dans leur 
VOISINAGE IMMEDIAT, d'autre part. Si l'image 
est en COULEUR, chaque point est aussi défini par 
sa couleur. Dans le cas d’une image en ‘noir et 
blanc’’ les couleurs sont remplacées par les 
NIVEAUX DE GRIS. Dans le cas où une image ne 
comporte que deux couleurs, ou deux niveaux de 
gris, il s’agit d'une IMAGE BINAIRE. En jetant un 
coup d'œil sur notre énigme nous pouvons constater 
qu'elle est composée des chiffres 0 à 9. De deux cho- 
ses l’une : ou cette image représente un texte codé, ou 
c'est une image où chaque chiffre représente soit une 
couleur, soit un niveau de gris. Admettons la deuxième 
hypothèse. 

Une grille peut être CARREE ou HEXAGONALE. 


CPC N° 32 - Mars 1988 


En où à sn 0 6e ORNE 
u MACON À 5 A 


Lrouss s « ds a 


M mm mm mm me où eh 4 


Men te ge 


ner fps fn 


do EN I L'OGMNE 


Chaque point est donc représenté soit par un carré 
(ou pe soit par un hexagone. Pourquoi pas 
par un triangle ! Nous verrons cela plus loin. 
Apparemment, notre image est composée d’une 
grille carrée. 

Chaque point, cellule carrée ou hexagonale, a des 
voisins immédiats. Nous pouvons distinguer deux 
types de voisins immédiats VOISINS DIRECTS et 
VOISINS INDIRECTS. Les voisins directs sont les 
points qui se situent sur le CHEMIN DIRECT 
réunissant les centres des cellules, c’est-à-dire le 
chemin le plus court. Le chemin le plus court passe 
par les côtés de la cellule. Celui passant par les 
sommets étant bien entendu plus long. Les voisins 
directs d’une cellule sont donc les cellules ayant un 
COTE COMMUN avec la cellule considérée. La 
figure n° 1 montre une grille carrée et une grille 
hexagonale. La grille hexagonale n’a que des 
voisins directs, alors que la grille carrée a quatre 
voisins directs et quatre voisins indirects. En prenant 
le chemin direct on peut en partant d’un point 
traverser toute l'image. Si les cellules étaient 
triangulaires le chemin direct ne serait pas une ligne 
droite. Pour cette raison les cellules triangulaires 
sont à exclure. 

Comme la définition, le traitement d’un point 
dépend soit de la totalité de l’image, soit du 
voisinage immédiat de ce point. On peut prendre 
en compte les huit voisins plus le point traité, 
comme on peut négliger le point en question, ou les 
voisins indirects. Bien entendu, les résultats ne 
seront pas les mêmes. 

Chaque point de notre image sera donc modifié 
par le traitement approprié en fonction de ses huit 
voisins et de lui-même. Notre image comporte 21 
lignes et 40 colonnes, soit 840 points. Pour chaque 
point il faut examiner 9 points, ce qui fait au total 
840x9=7560 opérations. Sachant qu’en mode 2 
l'écran comporte 640 x 200 = 128000 points, 
calculez le nombre d'opérations nécessaires. La 
nécessité des routines en langage machine est 
évidente, mais continuons. 

Il existe un troisième ensemble de points qui se situe 
par Son importance (dimensionnelle) entre le 
voisinage immédiat et la totalité de l’image. C'est 
la REGION. Les régions sont séparées entre elles 
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dE ons A CA en px 

AA ne gr ce 

& x 

AA 1 a ce € 
DROITE 


ee OWM A Udh  k" 


RRSTETU RIRE 


ar des FRONTIERES. On distingue deux types de 
FonHéres : FRONTIERE EXTERIEURE et 
FRONTIERE INTERIEURE. Imaginez deux régions, 
une grande et une petite entièrement INCLUSES 
dans la première. Ces deux régions ont une 
FRONTIERE COMMUNE. Pour la grande région 
c'est une frontière intérieure et pour la petite région 
c'est une frontière extérieure. Les régions ayant une 
frontière commune sont ADJACENTEÉS. L'intérêt des 
régions et des frontières apparaît immédiatement : 
chaque région correspond à un niveau de gris (ou 
à une couleur) et chaque frontière correspond au 
CONTOUR, qui est le DESSIN à proprement 

arler. 

ous connaissez maintenant le strict minimum de 
définitions concernant l’organisation de l’image. 
Notre objectif est de trouver le, ou plutôt les 
moyens pour améliorer (ou dégrader) une image, 
afin de la clarifier ou de lui donner une dimension 
artistique. Il existe des moyens électroniques, mais 
nous avons opté pour les méthodes numériques. 
Pour cette raison, dans ce qui suit nous éviterons 
toutes les notions théoriques destinées aux 
électroniciens plutôt qu'aux informaticiens. 
Résumons l'essentiel. 
L'AMELIORATION DE L'IMAGE a pour but le 
renforcement de la QUALITE VISUELLE de l’image. 
Ceci peut être obtenu par le convertion de l’image 
dans une forme aussi intelligible que possible afin 
de pouvoir procéder à son ANALYSE, soit par 
l’homme, soit par la machine. Il s’agit dans ce 
dernier cas de l'ANALYSE AUTOMATIQUE. Cette 
analyse automatique est, dans la plus part des cas, 
au service de la QUANTIFICATION SELECTIVE, 
rendue possible par la RECONNAISSANCE DES 
FORMES (médecine, industrie, recherche). Les 
méthodes utilisées peuvent être détournées au profit 
de l’art graphique. 
A l’origine, l’image destinée au traitement existait 
dans la nature (à moins qu’il ne s'agisse d’une 
création). Elle a été déformée et ERODEE par les 
CAPTEURS (simple appareil photo par exemple), 
lors de sa TRANSMISSION T.V.), ou de sa 
réception (antenne), ou tout simplement 
VOLONTAIREMENT, ce qui est le cas de notre 
énigme. 
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La RESTAURATION tend à reconstituer cette image 
afin qu'elle devienne une reproduction aussi fidèle 
ve possible de l’image d'origine. 
il n'existe pas de théorie générale de 
l'amélioration. Tout simplement parce qu'il n'est 
pas possible de définir objectivement et avec 
précision ce qui est la qualité d’une image. Surtout 
si cette définition doit comprendre aussi la notion 
de la valeur artistique comme c’est le cas pour une 
image dont l'original est une œuvre d'art. Il faudra 
donc utiliser des méthodes particulières et 
uniquement en tant qu'outil. Nous devons rester 
seuls juges des résultats obtenus afin de choisir le 
chemin le plus approprié selon notre goût et notre 
désir. 
Il existe quatre CLASSES de méthodes 
d'amélioration (ou de dégradation t 
1. MODIFICATION DE L'ECHELLE DES GRIS - 
METHODES PONCTUELLES 
2. MODIFICATION PAR TRANSFORMATION 
SPATIALE - METHODES LOCALES 
3. MODIFICATION PAR TRANSFORMATION DE 
FOURIER - METHODES GLOBALES 
4. RENFORCEMENT DES NIVEAUX DE GRIS OU 


COULEUR - METHODES DE COLORATION 


Avant de nous attaquer à l'étude de ces méthodes, 
il faut créer l’image à traiter, c'est-à-dire notre 
image-énigme. Pour cela nous utiliserons le 
programme du listing n° 1. 


Saisissez le programme et sauvegardez-le sous le 
nom ‘’CRENIG"” sur une disquette formatée et 
vierge de tout autre enregistrement. À la fin de 
notre étude elle contiendra tous nos petits 
programmes, l’image-énigme et l’image en cours de 
traitement. Certaines lignes du programme ne 
comportent rien. Conservez-les, car tous les 
programmes à venir seront bâtis sur le même 
canevas. Les lignes identiques ou très proches 
auront le même numéro à partir des centaines. Ceci 
raccourcira grandement les saisies. 

Une fois le programme sauvegardé, faites-le 
fonctionner. L'image sera créée, invisible et 
n'apparaîtra qu’une fois érodée et complétée par 
les bruits parasites. Elle sera sauvegardée 
automatiquement par le programme sur votre 
disquette qui doit rester dans le lecteur et ne doit 


pas être protégéelll 


1000 CREATION DE L IMAGE-ENIGME “CRENIG" >XD W1330  sE=0:k=Û L 

1910 3XE | 1740 NEXT ; WE 
1020 MODE 1:WINDOW 1,40,23,25:WINDOW#1.1.40,1,73 ‘QP | 1350 NEXT 1:CLS#i:a$="" RE 
1930 ‘ #XG | 1360 FOR 1=1 TO 21 SLT 
1040 DIM eci21.401.dc (21,40) UE | 1370 FOR 1=i T0 4 LG 
1050 GOSUE 1500 WE | 1380 a$=a$+CHR$ (dc (1. 3)) :TH 
1060 ‘ 2XK | 1390 NEXT 1:PRINT#I,a$::a$="" “XD 
1070 58=0:k=0 :J6 | 1400 NEXT 1 2VF 
1080 FOR 1=1 TO 21:LOCATE 1.1:PRINT 1, ?EH | 1410 : LA 
1090 FOR 1=1 TÜ 40 PLF | {42 CLS: SAVE"ENIGME. SÛR", D, LCOS, &1000 RC 
1100  LOCATE 10.1:FRINT 3 TV | 1430 END :YG 
1110 IF i=i THEN k=k+3:G60T0 1172 21F | 1500 FOR 1=1 T0 21 EN 
1120 IF j=1 THEN k=k+1:G0T0 1140 #1C | 1510 FOR j=1 TO 4 LC 
1130  sé=sBtec(i-1,1-1) 0F |1520  ec(1.J)=48 AC 
1140  sB=sBteci1-1,1) PK | 1530  NEXT : :WF 
1150 IF 1=40 THEN k=k+1:G0TD 1170 AR | 1540 NEXT : KA 
1160 5B=s8+ec (1-1, +1) ‘06 550 FOR 1=4 TO 16 STEF 3 :RH 
1170 IF j=1 THEN k=k+1:G50T0 1190 ‘IN 1560 IF 126 AND 1616 THEN J=4 ELSE j=6 :CH 
1180 sB=s8+ec(1.]-1) iFP | 1570 FOR k=i TO 6 FF 
1190 56=5B+ec (1, i) ?MG | 1580 READ a,b :Hk 
1200 IF j=40 THEN k=k+1:G60TD 1220 :AH 1590 FOR m=i TD a LU 
1210 sB=sBtec (1, 1+1) ?PF | 1600 ec(i.J)=57:ec(iti.j)=S7:ectit2.)=57:1=#1 :TW 
1220 IF i=21 THEN k=k+3:GOTO 1280 AR 1610 NEXT | 2YC 
1230 IF i=1 THEN k=k+1:G0T0 1250 16 | 1626 3=3+b 2NE 
1240  se=sBtec(i#1,]-{) >0F | 1630  NEXT EH ?XC 
1250  sB=sätec(i+i,i) 2PE | 1649 :YD 
1260 IF j=40 THEN k=k+1:G60TD 1280 AW | 1650 NEXT 1 WC 
1270  sB=sBtec(i+i, ji) >0G | 1660 RETURN >F6 
1280  dcii.j)=(58+k#48)/9 TR | 1670 DATA 5,5,8.6,5.8,0,0.0.0,0,0 6 
1290 IF de(i,i){>48 THEN 1330 ND | 1680 DATA 3.3,3,3,3,3.17,3,3,3,3.4 a LE 
1300  r=RND(1)-(1€4)#2-(1;18)#2 >XB | 1690 DATA 3,9,3,3,3,3,3,10,0,0,0,0 16 
1310  r=r-(j/10=INT(j/10))#2 >VA | 1700 DATA 3,3,3,7,8,4,3,3,3,4,0,0 2YC 
1320  deli.j)=r+48 LG Ai710 DATA 5,5,3,11,5.0,0,0,0,0,0,0 Ari 
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BRETAGNE EDIT" PRESSE 


Confiance - Qualité - Service 


Notre Groupe 
7 ans d'expérience de vente dans le monde 


Gérard PELLAN 
Le développement de la vente par correspondance est un fait que nul ne conteste. 
Pour de nombreux chefs d'entreprises, il représente même l'avenir. 
Ce système de vente dépend de 3 points essentiels. 


E L'EXPERIENCE SE LA CONFIANCE | LA QUALITE 
- | _ 


+ Expérience : notre groupe fait de la VPC depuis 1980. 

+ La confiance : le choix des produits que nous soumettons à nos clients, émanation directe de nos relations 
privilégiées avec vous. 

* La qualité : les produits proposés sont sélectionnés. Ce système commercial permet au client éloigné de faire 
son choix sans se déplacer. De notre côté, nous pouvons réduire les marges, donc vendre moins cher. 


CE CATALOGUE TOUCHE PLUS D'UN MILLION DE LECTEURS 


OFFRE SPECIALE 


- Boîte DATA Case 5"1/4 (50 disk) 135F 
10 disquettes D F D D 5*1/4 + 
Port et emballage 25 F 


Total Lot 160F 


| +1 Boîte DATA Case 31/2 (40 disk) 275F 
| 10 disquettes D F D D 3"1/2 + 
| Port et emballage 25 F 


Total Lot 300 F 


- 1 Boîte DATA Case 3" (20 disk) 355F 
10 disquettes D F D D 3" + 
Port et emballage 25 F 


Total Lot 380 F 


- Boîte DATA Case seule 
3" 31/2 90 F .. 5/4  95F 


+ + 
Port et emballage 25 F Port et emballage 25 F 


Total Lot 115 F Total Lot 120 F 


FABRICANTS - ARTISANS - IMPORTATEURS 


Vous avez un produit à vendre. Ce produit peut intéresser nos lecteurs ? 
N'hésitez pas à prendre contact avec nous. 
G. PELLAN Tél : 99.57.90.37 


INITIATION BASIC - niveau 1 

GW BASK et BASIC Microsoft 

H. Lien 

Le “best-seller” de la micro-informatique. Les commandes et les Instructions 
y sont étudiées à l'aide d'exemples de programmes fournis avec le résultat 
de leur action. Tout y et étudié : style, exemples, commentaires, présentation 
pour réduire l'effort d'assimilation au strict minimum. 

CODE ER 52 (176 pages) : 125 F. 


INITIATION AUX FICHIERS BASIC 

J. Bénard 

Avec ce livre, vous découvrirez progressivement le “mécanisme” de la 
constitufon d'un fichier en BASIC Microsoft puis celui de son explaitaton. 
L'auteur, à l'aide d'exemples concrets, vous lait explorer successivement 
les fichiers en mémoire interne, à accès séquentiel et à accès direct, en 
évitant les écuells les plus courants, principales causes de perte de temps. 
CODE ER 189 (160 pages) : 115F. 


PASSEPORT POUR BASIC 

R. Busch 

De ABS à XDRAW, cet ouvrage regroupe toutes les commandes, fonctions 
et instructions des différents BASIC. Vous l'ufliserez soit comme un dic- 

tlonnaire alphabétique pour connaître rapkdement l'emploi d'un mot par- 

ticulier, soit comme un guide de transcription de programmes, puisque les 
termes propres à certaines machines sont repérés par des symboles gra- 

phiques. Un livre clair et pratique à garder à portée de la main. 

CODE ER 402 (128 pages) : 45 F. 


INITIATION A LA MICRO-INFORMATIQUE 


Langages, calcul binaire, codages, fonctions logiques, technologie et orga- 
nisaton des microprocesseurs, le MC 6800 de Motorola, les mémoires, 
circuits et systèmes d'interface, la programmation. 


CODE ER 407 (169 pages) : 45 F. 


INITIATION BASIC - niveau 2 


programmation structurée D. 

Crochet et D. Vilain 

Ce livre accessible même aux débutants vous permet de réaliser des pro- 
grammes dairs et efficaces, dignes de professionnels. || vous montre 
comment, pour chaque application aussi complexe soit-elle, définir les don- 
nées et les traitements puis traduire son fonctionnement sous une forme 
graphique indépendante du langage de programmation. 

CODE ER 158 (272 pages) : 160 F. 


REPERTOIRE MONDIAL DES BASIC 

J. Bénard 

Les pièges lés à l'emploi d'un même mot-dé sur différents ordinateurs ; 
l'emploi des ordres BASIC sur les différentes machines ; le ou les ordres 
BASIC nécessaires pour une action précise sur Un ordinateur donné ; tab- 
leaux comparatifs des symboles ; index des mots classés selon leur rôle ; 
liste des mots pour chaque version. Un outil précis, efficace, indispensable 
à bout progammeur en BASIC. 

CODE ER 123 (448 pages) : 185 F. 


J'APPRENDS LE BASIC 

M. Caut 

Se servir d'un ordinateur peut paraître compliqué et réservé aux adultes. 
Dans ce lvre, destiné aux 12 ans et plus..., guidé par un “prof sympa”, on 
apprend le BASIC progressivement et en s'amusant. De nombreux exer- 
cices sont proposés avec leurs corrections. 

CODE ER 484 - (128 pages) : 75 F. 


PRATIQUE DU BASIC COMPILE 
compilation — programmation 
H. Lien 


Ce IMre expose de façon très pédagogique comment préparer puis compler 
un programme avec le compilateur Quick BASIC, de Microsof, en versions 
1 et 2. E nsist, en particule, sur les différences qui existent entre les 
BASIC compllé et interprété. De nombreux exemples, totalement développés, 
rendent évidentes toutes les notons à acquérir. 
CODE ER 17 (160 pages) : 120F. 


30 PROGRAMMES 

POUR COMMODORE 64 

D. Lasseran 

Des programmes variée mettent en œuvre les commandes BASK, le pro- 
cesseur audio et le processeur vidéo du Commodore 64. lis peuvent être 
Uflisés lois quels ou servir, avec ou sans modification, de point de départ 
ou de sous-pr à des ensembles plus importants. 

CODE ER 406 (128 pages) :45F. 


8256/8512 GUIDE DU BASIC 

ET DE JETSAM 

J.-L. Gréco et M. Laurent 

Ce guide est un dictonnaire complet du BASIC Amstrad disponible sur les 
modèles PCW 8256 et PCW 8512. Chaque instruction, commande ou fonction 
est présentée, commentée el llustrée par des exemples de programmes. 
L'étude de ces exemples permettra au lecteur de mieux exploiter les pos- 
siblités de son ordinateur. Le Hsting complet d'un programme de gestion 
de fichier est proposé en lin d'ouvrage. 

CODE SY 0215 (304 pages) : 138 F. 


TECHNIQUES DE PROGRAMMATION 


DES JEUX BASIC 

G. Fagot-Baray 

Cet ouvrage confent des programmes de jeux écrits pour les ordinateurs 
Amstrad CPC 464, 664 et 6128. Chaque programme est accompagné d'une 
analyse de la structure des phases essentielles et de tableaux 
résumant la fonction et les valeurs possibles des principales variables. De 
D ee 


CODE sv 208 (160 pages) : 98 F. 


PASCAL 


CREEZ VOS LOGICIELS 

JV. Meyer 

Ce Ivre vous enseigne de façon progressive et pédagogique comment 
analyser puis décomposer les applications même les plus complexes, se 
fabriquer des outils professionnels en TURBO PASCAL, créer des écrans 
de présentation ou de saisie, des menus déroulants, transiérer des données 
entre pr adapter bout imprimante à votre ordinateur … 

CODE ER 40 (224 pages) : 190 F. 


INITIATION PASCAL 

J.-C. Guilemot 

Le présent ouvrage s'est appuyé sur le PASCAL USCD tout en respectant 
au mieux les spédifications des normes établies par le projet SOL. Chaque 
point du langage fait objet d'un développement accompagné d'un diagramme 
de syntaxe et est Ilustré par des exemples. Les chapitres sont tous terminés 
par des exercices afin que le lecteur puisse vérifier $es connaissances. 
CODE ER 74 (224 pages) : 110F. 


70 PR RBO PASCAL 

M. Caceu et J.-C. Guillemot 

Vous pouvez utiliser ce Ivre que vous sachez ou non écrire des programmes 
en TURBO PASCAL. Les auteurs y décrivent soigneusement chaque pro- 
gramme en donnant des exemples testés sur IBM-PC. Les programmes 
reproduits représentent rigoureusement ceux qui ont fourni les résultats 


indiqués. 
CODE ER 124 (192 pages) : 125 F. 


INTRODUCTION AU TURBO PASCAL 

D. Stvisan 

Cet ouvrage permet à l'utilisateur d'exploiter la puissance exceptionnelle 
de ce langage. 

CODE SY 0180 : 198 F. 


GUIDE DU GRAPHISME 

J. Wniord 

L'Amstrad possède des qualités graphiques étonnantes et offre de nom- 

breuses instructions permettant de réaliser des applications très perfor- 

mantes. Cet ouvrage présente à l'aide d'exemples de programmes en BASIC 
toutes les techniques indispensables pour permettre au lecteur de réaliser 

de façon simple et rapide ses programmes graphiques. Les exemples étudiés 

permettront de mieux comprendre les principes de gestion des couleurs, 

d'udisation des différents modes vidéo, du tracé de courbes et de la réalisation 
de graphiques animés. Les programmes fonctionnent sur les modèles CPC 
464, CPC 664 et CPC 6128. 

CODE SY 0141 (208 pages) : 108 F. 


PREMIERS PROGRAMMES 

R.Zæs 

Ecrivez votre premier programme BASIC sur Amsïrad en moins d'une heure | 
D'une présentalon claire, comportant de nombreux diagrammes et llus- 
trafons en couleur, ce lvre vous enseigne les bases de la programmation 
en BASIC sur Amstrad. Avec lui, vous apprendrez à programmer en quelques 
heures, quels que soient votre âge et votre formation. Aucune expérience 
préalable de la programmagon n'est nécessaire. 

CODE SY 0105 (248 pages) : 108 F. 


JEUX DE REFLEXION 

G. Fagot-Baray 

Cet ouvrage confent vingt programmes de jeux de réflexion écrits pour 
les ordinateurs Amstrad. De fèmes classiques comme le Pendu ou les 
Tours de Hanol ou résolument nouveaux, comme Mistigri ou la Mare aux 
Dlables, ils permettent de jouer avec l'aide de l'ordinateur ou contre lui. 
Chaque programme est accompagné d'une analyse pédagogique de la 
structure des phases essentielles et de tableaux résumant la fonction et 
les valeurs possibles des principales variables. De quoi comprendre, en 
s'amusant, comment se réalisent les programmes de jeux. 


CODE SY 0207 ( 200 pages) : 78 F. 


GAGNEZ AUX COURSES 

J.-C. Despoine 

Ce livre se propose d'expliquer comment || est possible d'utiliser un ordi- 

nateur pour étudier une course d'une manière rafonnelle et rapide. |l est 

composé d'un programme d'environ 700 lignes dont l'objet est simple : 

pour une course donnée, sortir un ou des dassements héoriques d'arrivée 
en fonction de différents critères. l est composé de plusieurs parties distinctes : 
les appréciatons personnelles, les pronosics, les statistiques, les synhèses 
générales, le fichier de suivi des chevaux. 

CODE SY 0197 (112 pages) : 98 F. 


GUIDE DU BASIC ET DE L'AMSDOS 

J.-L Greco et M. Laurent 

Ce guide est un dictionnaire complet du BASIC Amstrad disponible sur les 

modèles CPC 464, CPC 664 et CPC 6128. Chaque instucton, commande 
ou fonction est présentée et commentée et ilustrée par des exemples de 

programmes. L'étude de ces exemples permettra au lecteur de mieux exploiter 
les possibilités de son ordinateur. Certains de ces programmes pourront 

même être utilisés directement ou intégrés à des programmes plus importants. 
CODE SY 0159 (288 pages) : 128 F. 


GRAPHISME EN TROIS DIMENSIONS 

T. Lachand-Robert 

Vous pourrez, grâce à ce livre, représenter des polyèdres, des surfaces, 

voire des objets plus complexes en trois dimensions sur l'écran de vore 

ordinateur. Les faire pivoter pour les observer sous tous leurs angles. Sup- 
primer les parties qui, dans la réal, seraient dissimulées au regard, afin 

de rendre l'impression de relief encore plus saisissante. Dessiner des lettres 
ou des petites images sur des plans qui semblent indinés, sur des cènes, 

des sphères ou des cylindres. Ce genre de réalisation ne nécessitera ja- 

mais plus de 200 à 300 lignes de BASIC et même souvent beaucoup moins 
sur votre Amstrad. 

CODE SY 0157 (240 pages) : 148 F. 


ASTROLOGIE, NUMEROLOGIE, BIORYTHMES 

P. Bourgauit 

Cet ouvrage se présente en quatre parties : astrologie occidentale, astro- 
logie chinoise, numérologie, biorythmes. Chaque partie comprend un expo- 
sé sur le domaine considéré, puis un logiciel de calcul et d'interprétation 
dont l'analyse est détaillée point par point. Ce ivre pourrait aussi s'inttuler 
“hitiation à l'asrologie, la numérologie et les blorythmes sur Amstrad” car 
1 présente les éléments de base de ces connaissances humaines et pro- 
pose les outis de calcul nécessaires à leur applicaton. 

CODE SY 0167 (160 pages) : 108 F. 


ASSEMBLEUR 


RSX et routines assembleur sur Amstrad 

D. Roy et J.-J. Weyer 

De rès nombreux programmes de graphismes et de mathématiques per- 
mettront aux possesseurs d'Amstrad (464, 664, 6128) d'améliorer leurs 
connaissances en assembleur Z80, grâce à des instructions spéciales : 
les RSX. Ils pourront ainsi obtenir une plus grande rapidité d'exécution et 
de très beaux graphismes. Les nombreux exemples et commentaires aident 
à assimiler facilement les instructions. 

CODE PS 352 (368 pages) : 200 F. 


INITIATION AU LANGAGE ASSEMBLEUR 

B. Geofrion et H. Lien 

Ce livre vous enseigne comment programmer en assembleur au travers 

d'une cinquantaine d' de diffcuité graduée. Il s'appuie 
sur la famille des microprocesseurs 8080, 8085, Z80, MCS 800, etc. I 

vous permettra d'aborder la programmaton en assembleur aussi bien sur 

des micro-ordinateurs industriels que sur des machines standard de bureau. 
CODE ER 1 (192 pages) : 130 F. 


GRAPHISME EN ASSEMBLEUR SUR AMSTRAD CPC 

F. Pierot 

Cet ouvrage permet de programmer des applications graphiques en as- 

sembleur sur Amstrad (464, 664, 6128). De nombreuses routines, Ivrées 

sous la forme d'un programme BASIC et d'un lsäng assembié aident l'amateur 
Inité à l'assembleur à progresser dans la connaissance de la programma- 

ton du Z80. 

CODE PS 340 (304 pages) : 145 F. 


PROGRAMMER EN ASSEMBLEUR Z80 

A. Pinaud 

Une initiaton à l'assembieur Z80 : après quelques définitions et rappels 
sur l'assembleur en général, l'auteur détaile les nstructions assembleur 
Z80, puis les pseudo et macro-nstructions. Les deniers chapitres sont 
consacrés à des axemples. Le bre comporte de nombreux exercices 

Deux annexes sont consacrées aux particularités de l'Amstad et du MSX. 
CODE PS 373 (224 pages) : 165 F. 


MIEUX PROGRAMMER EN ASSEMBLEUR 

T. Lachand-Robert 

Méthodes de programmation en assembleur ZB0, de nom- 
breux exemples de programmes d'application fonctionnant sur les Amstrad 
CPC 464, 664 et 8128. 

CODE SY 0193 : 148 F. 


JEUX EN ASSEMBLEUR 
E. Ras 
Les 18 jeux présentés dans ce ivre utilisent toutes les possiblités de votre 


delà du jeu lui-même, l'étude de ces programmes vous enseignera de 
nombreuses techniques de programmation qui vous seront très utiles pour 


développer vos propres programmes. 
CODE SY 0205 (104 pages) : 78 F. 


PROGRAMMATION EN ASSEMBLEUR 

G. Fagot-Baray 

Tous les utilisateurs d'Amstrad qui veulent aller plus loin après avoir maîtrisé 
les ressources du BASIC trouveront dans cet ouvrage les éléments nôces- 
saires pour aborder la programmation en assembleur. Après un court rappel 
d'arithmétique binaire, les principales instructions du microprocesseur Z80 
sont décrites et accompagnées d'exemples de sous-programmes écrits à 
l'aide de l'assembleur d'Amstr ad. Le lecteur apprendra ainsi comment réaliser 


CODE SY 0136 (208 pages) : 108F. 


LANGAGE MACHINE 


PROGRAMMES EN LANGAGE MACHINE 

S. Webb 

La façon de programmer l'équivalent des instructions BASE : PRINT, GOTO, 
GOSUB, FORNEXT... est tout d'abord étudiée, puis ces notons sont ap- 
pliquées à la réalisation d'un jeu d'action. De nombreux sous-programmes 
pourront être réutilsés par le lecteur dans ses propres programmes. 
CODE SY 195: 82F. 


AMSTRAD CPC ET PCW 


BASIC PLUS 80 ROUTINES SUR AMSTRAD 

M. Mann 

L'auteur propose 80 routines pour simuler des fonctions qui n'existent pas 
directement sur la machine. Les possibilités du synthétiseur de son sont 
développées pour programmer un morceau de musique ou pour produire 
des effets spéciaux. Le lecteur trouvera également des instructions gra- 
phiques évoluées et une inifation au tracé en haute résolution. Le lecteur 
doit déjà connaître le BASIC de l'Amstrad CPC pour utiliser au mieux cet 


ouvrage. 
CODE PS 286 (168 pages) : 100 F. 


AMSTRAD CPC : 
LE BASIC AU BOUT DES DOIGTS (n° 3) 


CODE ER 222 (198 pages) : 149 F. 


AMSTRAD 6128 : LE GRAND LIVRE DU BASIC 

Ce Ivre permet d'exploiter les capacités du BASIC locomotve. On y trouve : 
bases de programmes, fonctionnement interne du BASIC, les tris, lenètres, 
masque d'écran, protection contre les copies, etc. 

CODE ER 268 (263 pages) : 149 F. 


UNIVERS DU PCW 

P. Léon 

Environnement matériel, commande de CP/M 3.0 le BIDOS, le BIOS, fichiers 
binaires, éditeur de disquettes, désassembieur Z80, graphismes, caractère 
à la loupe. 

119F. 


AMSTRAD : LES JEUX D'AVENTURES (n° 5) 
Ce livre fournit un système d'aventures complet, avec éditeur, interpréter, 
routines ufltaires et fichiers de jeux, ainsi qu'un générateur d'aventures 


pour programmer vous-même. 
CODE ER 225 (184 pages) : 129 F. 


LA BIBLE DU PROGRAMMEUR 

DE L'AMSTRAD CPC (n° 6) 

Aide indispensable pour les programmeurs BASIC et “musf absolu pour 
les programmeurs en assembleur, cet ouvrage de référence, très complet, 
révèle tous les secrets du CPC. 

CODE ER 226 (600 pages) : 249 F. 


AMSTRAD CPC 464 : TRUCS ET ASTUCES (n° 1) 

La strucure hardware, le système d'exploitation, les tokens BASIC, le dessin 
avec joystick, de nombreux programmes (gestion de fichiers complète, 
éditeur de son, générateur de caractères.…). Une mine de “trucs pour les 
rois de l'astuce. 

CODE ER 221 - (278 pages) : 149F. 


AMSTRAD : GRAPHISMES 
ET SONS SUR CPC (n° 8) 


Ce livre vous fait découvrir les exceplonneles capacités graphiques et 
sonores de l'Amstrad. ll en montre ensuite l'utilisation grâce à de nombreux 
programmes intéressants et utilitaires. 


CODE ER 230 (184 pages) : 129 F. 


AMSTRAD : LE LIVRE DU LECTEUR 

DE DISQUETTES (n° 10) 

Tout ce que l'on doit savoir sur le lecteur de disquettes. Ce livre contient 
aussi, bien sûr, le DOS désassembilé et commenté, une gestion de fchiers, 
un moniteur disque, un Disk Manager et de nombreux programmes utikaires. 
CODE ER 232 (230 pages) : 149F. 


AMSTRAD CPC : Montages extensions 

et périphériques (n° 11) 

Pour bus les amateurs d'électronique. Ce livre monte avec de nombreux 
schémas, tout ce que l'on peut réaliser en la matière. 

CODE ER 235 (450 pages) : 199 F. 


AMSTRAD : le livre du CP/M (n° 12) 

Avec ce livre, pas de problème pour maîtriser le CP/M, vous saurez rapide- 
ment tout sur ce DOS extrêmement puissant : sauvegarde, copie, mani- 
pulation des fichiers, exemples d'utilisation. 

CODE ER 233 (238 pages) : 149F. 


LES ROUTINES 

DE L'AMSTRAD CPC (n° 14) 

Pour bien connaïtre et bien ufliser les routines utiles des CPC 6128, 664 
et 464. Un Ivre à la portée de tous qui contient de nombreux exemples et 
programmes et un 


désassembieur. 
CODE ER 239 - (264 pages) : 149F. 


DEBUTER AVEC 

L'AMSTRAD CPC 6128 (n° 15) 
RU faut savoir sur le lo- 
giciel, jusqu'à 

CODE ER 248 (219 rer 99F. 


LA BIBLE DES AMSTRAD CPC 664 et 6128 (n° 16) 
Ce livre de rélérence concerne les possesseurs d'Amstrad CPC 464, 664 
et 6128. Vous y trouverez une foule de “trucs” indispensables dont un 
générateur de masques, des routines, des aides à la programmation, etc. 
CODE ER 250 (430 pages) : 199 F. 


AMSTRAD CPC TRUCS ET ASTUCES, 

tome 2 (n° 17) 

Parmi de nombreux trucs pour Amstrad CPC 664 et 6128 : l'analyse du 
Système d'exploitation du processeur, le GATE ARRAY, les interfaces, le 
contrôle vidéo. 

CODE ER 251 (250 pages) : 129 F. 


- le livre du logo (n° 18) 
Cet ouvrage permettra au lecteur de profiter au maximum du LOGO livré 
avec l'Amstrad. Principaux thèmes abordés : les graphismes, les procédures, 
les récursions, les routines de tri, un générateur de masques, sruciure 
des données, iniligence artificielle. 

CODE ER 234 (408 pages) : 149 F. 


AMSTRAD : programmes éducatifs sur CPC (n° 19) 
Ce livre est un recuel complet de programmes et d'applications prêts à 
fonctionner sur CPC. Chaque programme est r'ès bien commenté etl'ouw age 
couvre de nombreux sujets (mathématiques, chimie...). Ce Ivre est tout 
particulièrement destiné aux lycéens. 

CODE ER 260 (303 pages) : 179 F. 


AMSTRAD : communications, modem et minitel sur 
CPC (n° 20) 

Un Amstrad, un téléphone, un modem : la combinaison gagnants pour 
entrer dans la télématique. Aspect héorique : fonchonnement d'une inter- 
face RS232, norme Vidéotex, description du fonctionnement du minitel. 
Aspect pratique : description d'une interface RS 232Mminitel. Cet ouvrage 
est également d'une gande utilité aux utilisateurs d'un PCW. 

CODE ER 217 (206 pages) : 149 F. 


AMSTR : la bible du graphisme 
Tout sur le GSX. Ce livre est un must. Tout sur le graphisme sur CPC et 
PCW. Vous y trouverez notamment : programmation d'un logiciel PAINT, 
g'aphismes de gestion (hisiogrammes...), graphismes vectorisés, fonction- 
nement et réalisation d'un light pen, graphismes en langage machine. Et 
enfin, pour la première fois, des explications daires sur le GSX. 

CODE ER 227 (558 pages) : 199 F. 


UNIVERS DU PCW 

P. Léon 

Environnement maiériel, commande de CP/M 3.0 le BIDOS, le BIOS, Kchiers 
binaires, éditeur de disquettes, désassembleur Z80, graphismes, caractère 
à la loupe. 

119F. 


102 PROGRAMMES POUR AMSTRAD 

J Deconchat 

Ce livre, idéal pour le débutant, va au M de ses 102 programmes de Joux 
guider le lecteur dans l'exploration du BASIC Amstrad. Les programmes 
courts et faciles à recopier sont dassés par niveau, chacun d'eux faisant 
appel à de nouvelles connaissances. Chaque niveau commence par une 
présentalon des nouvelles instructions utilisées. Tous les programmes 
sont commentés, llustrés d'un exemple d'exécution et fonctionnent sur 
CPC 464, 664 et 6128. 

CODE PS 222 (248 pages) : 135 F. 


SUPER JEUX AMSTRAD 

J.-F. Sehan 

Des jeux d'adresse, de réflexion et de hasard pour l'amateur déjà initié qui 
veut maltiser rapidement le BASIC de l'Amstrad. Le lecteur apprend à 
construire des programmes de plus en plus complexes en s'aidant des 
commentaires de l'auteur et de la liste des variables. Les motos lumineuses, 
la grenouille, le serpent infemal, la chenille, etc. amuseront le lecteur tout 
en facilitant son apprentissage 

CODE PS 257 (240 pages) : 140F. 


AMSTRAD EN FAMILLE 

J.-F. Sehan 

Une sélection de 40 programmes pour la maison touchant à sept domaines : 
les inances, la pédagogie, la cuisine, les jeux, le temps, la santé, le bricdage 
et quelques utilitaires. Chaque programme est accompagné d'un organi- 

gramme, d'une Este des variables et d'une explication de chaque ligne 

BASIC. Pour l'amateur inifé au BASIC qui veut commencer à program- 

mer efficacement. Pour CPC 464, 664 et 6128. 

CODE PS 240 (240 pages) : 145 F. 


PROGRAMMES UTILITAIRES POUR AMSTRAD 

M. Archambault 

Nombreuses routines : utilitaires de programmation, utilitaires graphiques, 
la gestion de fichiers, utilitaires imprimantes : 

110F. 


APPRENEZ L'ELECTRONIQUE SUR AMSTRAD 

P. Beauñis, B. Desperrier 

Programmes permettant de visualiser les phénomènes complexes de 
ME 

95F. 


COMMUNIQUEZ AVEC AMSTRAD 


D. Bonoma, E. Duterre 
Pour tous les passionnés d'ondes courtes, codage, décodage, réception/ 
émission, interfaces. 115 F. 


CLEFS POUR AMSTRAD CPC 


tome 1 - système de base 

D. Martin 

Un mémento indispensable au programmeur de CPC : instructions BASIC, 
jeu d'instructions du Z80, points d'entrée des routines système, blocs de 
contrôle, structure interne, programmation, connecteurs et brochage des 
principaux dircuits utilisés. Ce mémento comprend également un recueil 
d'astuces : comment protéger le programme, comment installer une routine 
en langage machine dans une remarque, etc. 

CODE PS 247 (224 pages) : 140 F. 


CLEFS POUR AMSTRAD CPC 

tome 2 - système disque 

D. Martin et P. Jadoul 

Consacré aux Amstrad CPC 464 (avec extension DD1), 664, 6128 et PCW 
8256, ce mémento procure un accès rapide à l'ensemble des informations 
indispensables à l'utlisateur du système disque : commandes, points d'entrée 
des routines disque, blocs de contdle, programmation et brochage des 
aircuits spécialisés. Un chapitre est réservé au langage Logo distribué avec 
le système disque. Comme le tome 1, ce mémento comprend un recuel 
de trucs et astuces. 


CODE PS 256 (232 pages) : 155 F. 


AMSTRAD EN MUSIQUE 

D. Lam ahieu 

Cet ouvrage va permettre à l'utilisateur, déjà initié au langage BASIC, la 
traduction d'œuvres musicales sur Amstrad (464, 664 et 6128). Partant 
de la génération de sons, en passant par le synthétiseur musical program- 
matble, le lecteur est amené à utiliser et développer les instructions BASIC 
consacrées au S0n. 


CODE PS 324 (244 pages) : 165 F. 


CLEFS POUR AMSTRAD PCW 

D. Roy et J.J. Weyer 

Le guide indispensable de l'ulisatur de PCW : I traite successivement 
du BASIC Makard, Locoscript, Muttiplan, dBASE et CP/M Plus. Pour chaque 
langage ou logiciel sont donnés les diverses commandes ou instructions 
et messages d'erreur. Des exemples d'application et un index par chapi- 
tre complètent l'ouvrage. 

CODE PS 375 (240 pages) : 215 F. 


GESTION SUR AMSTRAD PCW 

J.-M. Jego et A. Gargadennec 

C'est au travers d'applications de gesfon concernant les PME et les pro- 
fessions libérales que sont étudiés trois logiciels complémentaires utifsa- 
bles sur Amstrad 6128 et PCW : Locoscript, logiciel de traitement de tex- 
tes ; dBASE II, logiciel de bases de données ; Mulplan, tableur. Les modèles 
et tableaux de bord proposés sont de difficulté croissante et peuvent être 
adaptés à l'aide des commentaires des auburs. 


CODE PS 347 (232 pages) : 175 F. 


TROIS ETAPES VERS 
L'INTELLIGENCE ARTIFICIELLE 

POUR AMSTRAD 

R. Descamps 

Ce livre dévoile les secrets de l'intelligence artificielle de façon simple et 
praïque, grâce à de nombreux exemples et 27 programmes BASIC qui 
utilisent toutes les ressources de l'Amstrad. Le lecteur initié au BASIC 
étudiera l'intelligence artifdelle à travers des jeux puis 1 apprendra à créer 
de petits systèmes experts. 

CODE PS 278 (280 pages) : 160 F. 


PROGRAMMER VOTRE 

TRAITEMENT DE TEXTES 

J.-C. Despone 

Traitement de textes présenté pour l'essentiel en assembleur. Pour 464, 
664 et 6128 mis au point avec une DMP2000. Il peut facilement être adapté 
à d'autres imprimantes. 

CODE SY 221 : 128 F. 


LOCOSCRIPT 

B. Le Du 

Celire est une introducäon et par sa démarche pédagogique, à vous per- 
mettra une découverte aisée et rapide de ce traitement de textes. C'est 
aussi Un ouvrage de référence auquel vous pourrez vous reporter et un 
guide pratique. 

CODE SY 195 - 82F. 


ASTROCALC 

G Blanc, P. Destrebecq 

Si vous souhaitez disposer d'un outil de calculs permettant l'élaboration 
d'un thème natal ou d'une révolution solaire, la comparaison de thèmes, 
la recherche automatique des transits et progressions tout en comprenant 
les mécanismes mis en œuvre. Alors cet ouvrage vous combler a. 


CODE SY 162 :148F. 


PERIPHERIQUES ET FICHIERS SUR AMSTRAD CPC 
D.+. David 
Celve éuiels programmation en BASIC des fichiers et des périphériques. 


Les ordres correspondant à chacun des périphériques sont présentés : 
lecteurs de cassettes et de disquettes, imprimantes, crayon oplique, manette 
de jeu et RS 232. La programmation des disques est étudiée en accès s6- 
quentiel à l'aide d'ordres BASIC et en accès direct à l'aide de routines ofi- 
ginales. Le lecteur doit déjà bien maltriser les instructions de base du CPC. 


CODE PS 316 (168 pages) : 120 F. 


AMSTRAD 3-D 

J.-P. Petit 

Cet ouvrage confent un véritable logiciel montrant toutes les étapes nôces- 
saires à la créaton d'objets et à leur visualisation en rois dimensions à 
l'écran. On apprend à créer une bibliohèque d'objets et à les déplacer les 
uns par rapport aux autres et même à les incorporer dans des jeux d'aventure. 
Des explications progressives et des dessins d'écran permettent d'assimier 
rapidement la technique et la programmation de l'image en 3 dimensions 
sur Amstrad CPC. 

CODE PS 365 (264 pages) : 195 F. 


( MINITEL ) 


LES SECRETS DU MINITEL 

C. Tavemier 

Principaux chapitres : les différents services proposés sur Télétel, infor- 
matique domesique et minitel, téléphonie et transmission d'informations, 
les différents principes de transformation de données, comment devenir 
serveur, réalisation d'un modem universel. 


CODE ER 491 (168 pages) :115F. 


GUIDE DU MINITEL 


P. Gueule 

Que peut-il apporter ? Quels services et à quel prix ? Comment réduire 
ses coûts sans diminuer la qualité du service ? En toute indépendance 
vis-à-vis des PTT, Patrick Gueulle répond à ces questions et à bien d'autres 
dans ce petit guide essentiellement pratique. 

CODE ER 504 (96 pages) : 85 F. 


VOTRE ORDINATEUR ET LA TELEMATIQUE 


P. Gueule 

L'informatique individuelle est souvent synonyme d'informatique “solitaire”. 
La télématique, qui permet la"communication entre ordinateurs, brise cet 

isolement et ouvre des perspectives passionnantes. Différents moyens, 

comme le téléphone ou la radio, sont à votre portée pour réaliser les équi- 
pements de transmission décrits dans cet ouvrage. 

CODE ER 487 (128 pages) : 90F. 


DIVERS INFORMATIQUE 


+ JOUEZ AVEC MO5 

Eddy Dutertre : 40 F. 

+ MEUX PROGRAMMER SUR ORIC 
Mchal Archambault : 110 F. 

+ COMMUNIQUEZ AVEC ORIC 

Denis Banamo et Eddy Dutertre : 145 F. 

+ INTERFACES POUR ORIC-1 ET ATMOS 
M Level : 59 F. 

+ ORIC A NU 

Fabrice Broche : 151 F. 

+ PLUS LOIN AVEC LE CANON X07 


Apprendra aux amateurs comme aux professionnels à résoudre les mile 
etun problèmes qu'ils ne manqueront pas de rencontrer lors de la mise en 
service de leur imprimante. 

95F. 


+ LA BAULE-DAKAR : 54 F 

+ EXPEDITION POLE NORD : 95 F 

+ EXPEDITION CARTIER LABRADOR 
EN CANOE KAYAK : 80F. 


+ MANŒUVRE CATAMARAN CROISIERE : 49 F 
+ TRAITE RADIO MARITIME : 162 F 


PROFESSIONAL 
STANDARD 


ATARI 
AMSTRAD 


QUICK SHOT PC 


ECONOMY 


CODE GU 7005 
ATARI - AMSTRAD 


Etudiez 
branché ! 


4 


LVL 


LOGICIELS EDUCATIFS = 


Chaque logiciel comprend un rappel des cours, des 
exemples ou démonstrations, des exercices programmés 
ou libres 


APPRENDS-MOI A LIRE 1 
Activités de prélecture en maternelle. 


A partir de 4 ans (synthèse vocale en option) 
Ensemble d'activités destinées à mettre en place les pré-requis en matière 
de lecture. Les exercices utilisent les fonctions graphiques de l'ordinateur 
pour favoriser le développement de la représentation spatio-temporelle, 
du schéma corporel, du conrble de tracé, de la mémokre et de la recher- 
che d'indices. Les consignes d'utilisation sont données sous forme verba- 
le grâce à des messages restitués par la synthèse vocale. 

AMSTRAD (réf. P 4220) 1 disk255F 


T08, TO8D, TO9, TO94 (réf. P 4219) ___ 1 disk285F 


APPRENDS-MOI À COMPTER 1 


Grande section-CP (synthèse vocale en option) 
Jeu éducatif qui conduit l'enfant à concevoir l'idée de nombres, à se fami- 
Nariser avec le mécanisme de la umération, à en retenir le vocabulaire. 


TO8, TO8D, TO9, TO94+ 
(réf. P 4227) 


APPRENDS-MOI A LIRE 2 
Aide à l'apprentissage de la lecture. 


Grande section-CP 

Ensemble d'aciviés progressives pour passer de la non-lecture à la lec- 
ture. L'enfant est amené à parcourir un véritable album sonore intéractif : 
plus de 200 mots sont proposés en contexis ou par référence à des images 
et du son, à travers trois thèmes : la campagne, le voyage, le conte. 
AMSTRAD (réf. P 4222) 1 disk 255 F 


BALADE AU PAYS DE BIG BEN (6ème - 5ème) 

Ace invite l'élève au pays de Big Ben dans quatre épisodes inspirés du 
roman de Lewis Caroë. Cette méthode originale, fondée sur une pédagogie 
active est un excsllent outil de perfectionnement || comprend des tests de 


1 disk 285 F 


compréhension, de grammaire, de vocabulaire, des révisions du programme, 


des mini-jeux, un dictionnaire. De plus, une bande audio intégrée permet 

l'écoute des textes en anglais. 

AMSTRAD (réf. P 009) _____ ____ 1 disk 225 F 
1 disk 280 F 


Comp. PC (réf. P 0153) 


ENIGME À OXFORD (4ème - 3ème) 

L'énigme sert de prétexte au perlectionnement de la langue anglaise : 
après un texte de plusieurs pages, des questions, un dictionnaire, des 
rappels et des exercices de grammaire sont proposés, entrecoupés de 
mots croisés. L'approche du programme, la réelle qualité du graphisme et 
de l'exécution, les possibilités d'imprimer, d'entendre le texte sur la bande 
audio, en font un outil idéal pour le perfecéonnement et la maîtrise de la 


langue anglaise. 
TO8, TO8D, TO9,TO9+ 1 disk 250 F 
AMSTRAD (réf. P 0114) 1 disk 225 F 
Comp. PC (réf. P 0124) 1 disk 280 F 


ENIGME À MADRID (4ème - 3ème) 
L'énigme sert de prétexte au perfectionnement de la langue espagnole : 
après lecture d'un text ilustré de plusieurs pages, des questions, un dic- 
tonnaïre, des explications et des exercices de grammaire sont proposés. 
Le logiciel est divisé en quatre épisodes entrecoupés de mots croisés. H 
est possible de “toumer les pages” du lexte, de l'entendre sur une bande 
audo intégrée, de l'imprimer. Par sa convivialité, ce logiciel est un excsl- 


lent outil pour la maïtrise de la langue espagnole. 
AMSTRAD (réf. P 0151) 
Comp. PC (réf. P 0152) 


ENIGME A MUNICH (4ème - 3ème) 

L'énigne sert de prétexte au perfectionnement de la langue allemande : 
après un taxi de plusieurs pages, des quesfons, un dictionnaire, des 
rappels de grammaire et des exercices sont proposés. À ravers quatre 
épisodes entrecoupés de mots croisés, l'approche du programme, la réelle 
quai du graphisme et de l'exécution, la bande audio intégrée font d'Enigme 
à Munich un excellent outil. 


1 disk 225 F 
1 disk 280 F 


AMSTRAD (réf. P 0146) 1 disk 225 F 
Comp. PC (réf. P 0147) 1 disk 280 F 
BALADE OUTRE RHIN 

(6ème - 5ème) 


Alice vous invite à la suivre dans son approche de la langue de Goethe, à 
travers Une histoire en quatre épisodes Ilustrés, des exercices de com- 
préhension et de grammaire, des mini-jeux... Gros au dialogue avec l'or dina- 
teur qui analyse, évalue les réponses et le guide pas à pas, l'élève progres- 
8e rapidement Un logiciel éducatif conçu à partir d'une pédagogie active 
et servi par une bande audio intégrée et un dictionnaire. 
AMSTRAD (réf. P 0014) 1 disk 225 F 
1 disk 280 F 


Comp. PC (réf. P 0154) 


OBJECTIF MONDE : 

LES MILIEUX NATURELS (6ème) 

L'élève part à la découverte du monde et aborde les différents milieux na- 

turels : végétation, faune et cimat. Grâce à une synhèse comparative vi- 

vante, l'élève acquérra une bonne compréhension des grands écosystèmes. 
Le contrôle et l'approlondissement des connaissances sont assurés par 

des constructions de paysages, des g'aphismes commentés, des exera- 

ces sur cartes, des mots croisés, un dictionnaire. (Edifons Coktel Vi- 


sion). 
AMSTRAD (réf. P 0200) 


1 disk 195 F 
Comp. PC (réf. P 0202) 1 disk 220 F 
OBJECTIF EUROPE 
(4ème - 3ème) 


L'élève s'interroge sur l'Europe, 1 se tamllarise avec les systèmes 6cono- 
miques et sociaux, les instifons tant locales qu'européennes et réalise 
quatre stages (institution politique, agriculture, industrie, localisation sur 
carte). Le logiciel propose des schémas explicaëls, des cartes commentées, 
des exercices variés. (Editons Cokiel Vision). 


AMSTRAD (réf. P 0220) 1 disk 195 F 
Comp. PC (réf. P. 0222) 1 disk 220 F 
OBJECTIF FRANCE 

(4ème - 3ème) 


Un organisme national met en place une opération d'information pour fa- 
millanser les Français avec l'espace national et régional. L'élève parcourt 
la France afin de préparer une campagne de publicité qui portera sur les 
régions (Instiufons, lents), les viles et les industries de la métropole 
ainsi que les DOM-TOM. Il trouvera des schémas expicatifs, de nombreux 
graphismes, des exercices variés et amusants. (Editions Coktel Vision). 
AMSTRAD (réf. P 0210) 1 disk 195 F 


Comp. PC (réf. P 0212) 1 disk 220 F 


CONJUGUER 


Outil pédagogique d'apprentissage de la conjugaison, cs logiciel permet 
de reconnaître toutes les formes correctes des verbes français. Tous les 
cas particuliers (auxiliaires, délectifs pronominaux, mpersonnels, eic.) ont 
os cu C'est également un outil de vérifcaion et de correction orthogra- 


AMSTRAD (réf. P 4346) 1 disk 285 F 
Comp. PC XT (réf. P 5001) 1 disk 295 F 


MOTS EN FETE (6ème - 2nde) 

3 jeux de vocabulaire et d'orthographe 

3 jeux de vocabulaire et d'orthographe pour réveller les mots qui dorment 
dans les tôtes. Le mot le plus long, Anagramme, Le pendu. Chacun d'eux 
offre divers niveaux, du débutant au virtuose. Aides et commentaires ani- 
ment l'activité. Les dictionnaires dans lesquels is puisent aléatoirement 
dépassent 80000 mots. Toute la richesse de la langue française. 
Comp. PC (réf. P 4320) 4 disks 325 F 


MATHS 6 

Algèbre pour classe de 6ème 

(également intéressant pour CM1-CM2) 

M. et M.-T. Coquio : opérations + — x / ; fractions ; calculs sur les relatifs ; 


pourcentages avec graphisme ; suites proportionneles avec graphisme ; 
calculs d'aires ; symêtries orhogonales. 


Comp. PC (réf. MC 01A) 220F 
AMSTRAD (réf. MC 01B) 2K7170F 
(réf. MC 01C) 1 disk 200 F 
ATARIST (réf. MC 01D) 1 disk 220 F 


MATHS-5 4 


Algèbre pour classes de 5ème et 4ème 

M. et M-T. Coquio : muliples et diviseurs d'un enter ; nombres premiers ; 
puissances d'un enfer naturel ; décomposition d'un enter naturel ; P.G.C.D. 
et P.P.C.M. ; calcul algébrique ; rationnels (simplifications et opérations 
de fractions) ; équations et inéquatons dans R. 


AMSTRAD (réf. MC 02A) 2K7 Maths 4170F 
(réf. MC 02B) 2K7 Maths 5 170F 
(réf. MC 02C) 1 disk 200 F 
ATARIST (réf. MC 02D) 1 disk 220 F 
MATHS-3 

Algèbre pour classe de 3ème 


M. et M-T. Coquio : constructions de vecteurs ; calculs sur les droites ; 
systèmes linéaires 2,2 ; régionnement du plan ; calculs sur les racines 
carrées ; notions de Wigonométrie. 


AMSTRAD (réf. MC 03A)_— 2K7170F 
(réf. MC 0SB) 1 disk 200 F 
Comp. PC (réf. MC 08C) 220 F 
ATARI ST (réf. MC 03D) 1 disk 220 F 


EQUATIONS 

Algèbre pour classes de 3ème et 2nde 

M. Coquio : équations du second degré avec interprétation graphique ; 
Systèmes linéaires 2,2 ; systèmes linéaires à n équatons ; P inconnues 
{n,p < 8) (sur disquette seulement). 


AMSTRAD (réf. MC 04A) 1K7150F 
(réf. MC 04B) 1 disk 200 F 
MATHS-Second cycle 1 

Niveau 2nde à terminales 


M. Coquio : équations du second degré avec interprétation graphique ; 
courbes Y = F{x) avec choix du repère et des unités ; intégrales par la mé- 
thode des rectangles avec interprétation graphque et axeraces ; suites 
récurrentes avec graphisme ; fonctions 1écproques. 


AMSTRAD (réf. MC O5A) 2K7200F 
(réf. MC 05B) 1 disk 250 F 
MATHS-Second cycle 2 


Niveau 4ème à terminales 
M Coquio : mage par application affine ; courbes avec options {dont har- 
dcopy) ; courbes superposées ; courbes définies par morceaux (disquette) ; 


famille de courbes ; courbes planes (cinématique) ; courbes définies par 
une intégrale. 


AMSTRAD (réf. MC 06A) 2K7170F 
(réf. MC 06B) 1 disk 200 F 
GEOMETRIE PLANE 


Algèbre 2ème à terminales 

M. Hirtzier : utilitaire de dessin pour tracer points, droites, segments et 
cercles avec résultat de géométrie analytique. Utiftaire de ransformatons 
(translation, homothétie, similitude...) sur des figures simples (carré, tian- 


gle, cerde...). 

AMSTRAD (réf. MC 07A) 1 disk 200 F 
ATARI ST (réf. MC 07B) 1 disk 220 F 
Comp. PC (réf. MC 07C) 1 disk 250 F 


ESPACES ET SOLIDES 


Niveau 1ère et terminales 
M. Hirtzier : utilitaire de dessin dans l'espace avec la perspective "fil de 
fer”. Représentation de solides dans l'espace avec choix des angles de 


perspective. 
AMSTRAD (réf. MC 08A) 1 disk 200 F 


FONCTIONS ET COMPLEXES 
Niveau terminale et sup. 


M. Hirtzler : tracé de Y = f(x), polaires, droites, enveloppes avec choix du 
repère et des unités ; calculs, calculs d'aires ; exemples (conchoides, cis- 
soides, coniques) ; complexes (calculs, équations, ransfommatons et exem- 


ples). 
ATARI ST (réf. MC 09A) 1 disk 220 F 


FRANÇAIS 
Niveau CM1, CM2, 6ème 


À Malassis : dictée réussie ; exemples et exercices ; conjugaison ; par- 
ticipes passés avec bte et avoir. 


AMSTRAD CPC (réf. MC 10A)_________ 2K7170F 
(réf. MC 10B) 1 disk 200 F 
FONCTIONS NUMERIQUES 

Niveau 1ère à sup. 


M. Hirtzier : calcul formel : développements, écriture de la fonctions dérivée 
avec simplification. Développements imités au voisinage de x = a. Les 
fonctions arcsin, arccos, sh, ch, th sont définies. De 0 à 4 paramètres 
dans votre fonction. Graphes y = f(x), paramétriques et polaires. Jusqu'à 
10 graphes sur l'écran. Possibilité de revoir en changeant origine et unités. 
Comp. PC (réf. PI001A)__ (ttes cartes) 250 F 


AMSTRAD (avec CPM +) (réf. PI001B) 1 disk 250 F 


STATISTIQUES 


Niveau 1ère et term. 

M. Hirtzier : séries à une variable numérique : histogrammes, diagram- 
mes circulaires, moyenne, écart-type. Classement de données brutes. Séries 
à une variable alphabétique : fréquences d'apparition des lettres dans un 
texte, dagrammes, histogrammes. Séries à deux variables pondérées ou 
non : représentation, ajustement linéaire, corrélafon, ajustement par fonc- 
tions log et exp. Sauvegarde et chargement des données, impression à 
tout moment 


AMSTRAD (tous CPC) (réf. PI 002A)-__- 1 disk 200 F 


CREER ET JOUER AVEC LES MATHEMATIQUES 


Niveau 5ème à term. 

M. Hirtzier : 3 jeux de cartes pour apprendre les transhormations géoméri- 
ques : rotations, symétries axiales et centrales, translations dans le plan. 
Symétries centrales et par rapport à des plans, translations dans l'espace. 

2 jeux de réflexion : placer 8 tours ou 8 reines sur l'échiquier, parcourir les 
64 cases avec le cavalier ; colorier des réseaux avec le minimum de couleurs. 
Solutions optimales données par l'ordinateur. 1 outil de création graphique : 
les pavages du plan à partir des formes de base sauvegarde, impression, 
exemples. Menus déroulants, souris, joystick ou clavier. 

Comp. PC (ttes cartes graphiques) 

(réf. PI 003A) 250F 
AMSTRAD (avec CPM +) (réf. PI003B)__ 1 disk 250 F. 


ATARIST (réf. P1003C) 1 disk 250 F 


MATRICES 

Calous sur les vecteurs : sommes, produit scalaire. Opérations sur les 
marices : somme, produit, puissance, tansposée. Permutaion, suppres- 
sion, duphcation, échange lignes et colonnes. Déterminants, matrices in- 
verses, rang, trace. Systèmes linéaires à n équations et à p inconnues. 
Polynomes caractérisiques, valeurs propres réelles, complexes. Fabrica- 
ton automatique de marices. Programme BASKC avec RSX en assem- 
bleur. Mode démonstrafon. Documentation organisable en arborescense. 
Impression et sauvegarge sur disque. Format compatible avec des tableurs 
courants 


AMSTRAD CPC 6128/664/464 (réf. PI004A)___ 250 F 


POLYNOMES 

Opérations sur polynomes : somme, produit, composition. Valeur en un 
point. Calcul des racines, équations algébriques. Développements limités. 
Polynomes de Tchebycheli, Légendre, Hermite, Bernouik. Fabricafon au- 
tomafique par remplissage avec formule. Tracé de courbes algèbriques 
avec axes, affichage de coordonnées. Copie d'écran. Programme BASIC 


LR 


avec RSX en assembleur. Mode démonstaion. Documentation organisa- 
ble en arborescence. Impression et sauvegarde sur disque. Format compa- 
tible avec des tableurs courants. 

AMSTRAD CPC 6128/664/464 


(réf. PI005A) 250F 


=—= LOGICIELS UTILITAIRES == 


PRODUITS CPC 


LA “TRILOGIE” DU 6128 
(disponible sur disquette seulement). 


TASWORD 6128 “MAILMERGE” 
Le traitement de textes du 6128. 
Réf. SE 1201 D 


MASTERFILE 6128 
Base de données relationnele. 
Réf. SE 1202 D 


MASTERCALC 6128 
Tableur simple rapide et puissant. 
Réf. SE 1203 D 


Masterfle et Mastercalc peuvent envoyer leurs données vers Tasword. 
Tous les trois sont utisables sur 464/664 + extension 64 Ko DK Tronics. 
Tasword 6128 peut s'utiser avec les extensions Vortex. Clavier Azerty 
accommodé. 


TASWORD 464 
Réf. SE 1200 K 


TASWORD “DISQUETTE" 
Pour 464 et 664 (avec Tasword 6128) 
Réf. SE 1201 D 


TASCOPY 
Copies d'écran (8 tons de gris, fommats A4 & A3). 
Réf. SE 1208 D 


TASCOPY CPC 
Version cassette 
Réf. SE 1207 K 


SEMABANK 
Gestion de comptes bancaires rapide et fiable 
Réf. SE 1258 D 


STATISTIQUES MULTIVARIEES 
POUR CPC 464 et 6128 
Réf. SE 1259 D 


TASPRINT CPC sur cassette 
Réf. SE 1205 K 


CONVERSIONS BUS 6128 
Nouveau pour périphériques standard (extensions, synthés, digitaliseurs.…) 
Réf. SE 1212 175F 


VIEWTEXT 

Vous venez d'acquérir le dernier jeu d'aventure et vous n'avancez pas. 
Mais quel mot peut comprendre mon ordinateur ? Viewtext affiche ou im- 
prime tout le contenu ASCII (texte) de vos fichiers sur cassette ou dis- 
quette. N'attendez pas pour envoyer vos solutions aux magazines. 

K7 seulement (réf. ES 1001A) 135F 


IMPRESSION 

Vous possédez une imprimanie, mais sa programmation vous rebute, de 

part sa lourdeur. Ce logiciel programme n'importe quelle imprimante à l'aide 

de ses 65 commandes RSX. Programme style de caractères ; programme 

les différentes tabulations ; programme le contrôle de l'imprimante ; pro- 

gramme la sortie 8 bits ; programme les recopies d'écrans paramétrables ; 

trame ; agrandissement ; déplacement ; sélection fenètres. 

K7 (réf. ES 1002A) 200F 
240F 


disk (réf. ES 1002B) 


L'INTERPRETE 


La majorité des logiciels existants sont dans la langue de Shakespeare et 
l'utilisation n'en est que plus difficile (utiitares, jeux d'avenires, jeux...). 
Ce programme vous permet de raduire en français ou en toute autre lan- 
gue vos logiaiels prélérés. La démarche est automatique et ne requiert 
aucune connaissance particulière. Mapping du disque ; édition des secteurs ; 
acceptañon de jokers ; traduit plus de 500 mots à la fois ; repère automati- 
quement sur la disquette les texies à aduire. 

Disk (réf. ES 1003A) 290 F 


360F 


360F 


300 F 


260F 


360F 


230F 


190F 


330 F 


395 F 


190F 


D 


ZENITH 

La capacité de stockage des disquettes 3 pouces est au maximum de 
178 Ko. I est donc difficile de stocker plus de quatre programmes par faces. 
Ce progamme de compactage réduit les pages de présentation ainsi que 
les programmes (BASIC ou BINAIRE) en un minimum de place. 

Disk (réf. ES 1004A) 250 F 


ECHOSOFT 

Faites parler votre AMSTRAD CPC sans interface, telle est la vocation 
d'ECHOSOFT. Une simple application d'une source sonore sur l'entrée 
de l'ordinateur et aussitôt la mémorisation s'effectue. De nombreuses op- 
tions vous sont proposées : enregistrer, reproduire, sauvegarder, coller- 
découper, déplacer, initialser, variations vitesse, etc. Deux autres program- 
mes sont livrés avec ce logiciel : le premier est un synthétiseur qui rans- 
forme le davier en un orgue ; le second est un générateur de sons (poly- 
phonique) pour incorporer dans tous les programmes de votre créaton. 
Disk (réf. ES 1005À) 395 F 


PSYCHOTEST 

Mesurez-vous à l'ordinateur en testant votre rapidité de réflexion et de dé- 
duction. Ce logiciel ne fait pas appel à des connaissances particulières, 
mais plutôt à votre sens de la déduction. Basé sur les tests d'embauche 
des entreprises américaines, Psychotest vous offre un divertissement ga ant. 
Disk (réf. ES 1006A) 135F 


PRODUITS CPC ET PCW 


(2 versions sur la même disquette) 


TASPRINT LE TYPOGRAPHE 
5 écritures sur CPC, 8 sur PCW. Compatible Tasword CPC et PCW, Lo- 
coscripl, Wordstar…). 


Réf. SE 1206 D 230 F 
TAS-SIGN 

L'artiste en letres, enseignes, réclames créez-les vous-même... 

Réf. SE 1262 D 300 F 


PRODUITS PCW 8256 ET 8512 


TASWORD 8000 

Le traitement de textes rapide avec "Mallmerge” pour les utilisations profes- 
sionnelles. 

Réf. SE 1217 D 450F 


MASTERFILE 8000 

La base de données relafonnelle travaillant enfèrement en RAM, rapide, 
flexible, simple et puissante. 

Réf. SE 1221 D 550F 


PRODUITS “PC” IBM ET COMPATIBLES 


TASWORD PC 
Le traitement de textes des PC, simple, puissant et avec *Mailmerge”, 
Réf. SE 1226 D 490 F 


TASPRINT PC 
Le typographe, 20 écritures, créateur de caractères, mode ‘machine à écrire”, 
Réf. SE 1251 D 390 F 


TAS-SIGN PC 
L'artiste en lettres, enseignes, réclames et créez-les vous-même. 


Réf. SE 1263 D ___ 390F 


DIVERS 


BOURSE 2000 

Développé avec des agents de changes, ce logiciel vous permet de vous 
plonger dans le mieu de la bourse. PLus d'hésitaton, grâce aux formules 
d'anicipations et de moyennes de ce logiciel. Achetez votre journal, suivez 
les cours de la bourse et nous vous garantissons plus que de substantiols 
bénéfices. Avec un6 ou plusieurs valeurs sur trois années : la croissance 
annuelle, l'évolution et la moyenne mobil, les points etles figures (méthodes 
reconnues par les agents de changes), les hausses et les baisses moyen- 
nes, la genèse, la situation. Calqué sur les outils des grandes agences ou 
des dubs d'investissement, Bourse 2000 gère vos titres, actions ou obliga- 


fons. 

Disk CPC (réf. ES 1007A) 450F 
Disk PCW (réf. ES 1007B) ____ 850F 
Disk PC (réf. ES 1007C) 1200 F 
SILIPACK 

La musique à votre portée 


2 programmes : performances + qualités 

SILIDRUM : bolte à rythmes programmables, gérée par menus déroulants 
(davier ou joystick). 

SILITONE : synhétiseur sur 5 octaves géré par menus déroulants (clavier 
ou joystick). Générateur BASIC semblable à celui de Sildrum. Récupère 
les rythmes créés par Siidrum. Gestion des noires et des blanches. 

Réf. ES 1008A 375F 


+ PC1 MERCI 


Foumi avec câble minitel, 1 
disquette logiciel, 1 disquette 
exemples, livre d'initiation, se 
branche entre votre PC 1512 
et le minitel. 


POSSIBILITES 


- Remplace votre minitel. 
- Affichage complet en cou- 


+ PC2 MERCI 


Foumi avec carte MODEM, 
câble téléphone, 1 disquette 
bgiciel, 1 disquette exemples, 
livre d'initiation, carte à inté- 
grer dans votre PC 1512. 


MODEM 

— V21 300 bauds Full Duplex 
(appel ou réponse). 

— V23 1200/75 75200 Full 


Réf. ME 01 leur sur votre PC 1512. Duplex (réversible). 
— Prise d'information en auto- | - Livret de programmation 
matique sur les serveurs (an- pour les professionnels. 
890,00 F TTC nuaire, banque, etc.). | 2 990,00 F Ï Ï C — Compatible Hayes. 
- Calcul des coûts de com- 
+ Forfait port + emballage munication. + Forfait port + emballage POSSIBILITES 
uniquement en recommandé (30 F) À - Constitution de votre an- uniquement en recommandé (30 F) } Les mêmes que PC1, plus : 

nuaire à partir de l'annuaire — Connexion et appel en auto- 


matique aux serveurs à partir des procédures mémorisées en fichiers. 
- Sa compatibilité Hayes vous permettra de transférer tous vos fichiers avec les 


électronique avec fichier de codes postaux. 
— Mailing sortie listing ou étiquettes. 


- Transformation des fichiers en ASCII pour les reprendre avec dBASE Il ou autres. progiciels Open Access, Symphonie, Crosstalk, etc. 
— Menus et touches de fonctions vous aident et vous suppriment les saisies fasti- - Autonome, vous pourrez sur votre PC lancer une connexion sur un serveur à une 
dieuses. heure de votre choix et en prendre toutes les informations sans même être présent. 


+ ADAP CPC 1 Mercitel 
+ ADAP PCW 1 Mercitel 


Adaptation minitel sur l'interface RS 232 Amstrad + câble Réf. ME 03 360,00 F +20F 
Adaptation minitel sur interface PCW + câble + logiciel Réf. MEO4  918,60F | forfait port + emb. 


+ CABLE MINITEL Câble liaison RS 232/DIN Minitel Réf. MEO5  195,00F | Recommandé 

+ CABLE PC/IMP Câble liaison PC/imprimante parallèle Réf. ME06  120,00FJ facultatif+10F 

+ MERCITEL CPC 1 Interface transmission minitel + câble minitel pour CPC 464/61 28 Réf. ME07  1135,00F 

+ MERCITEL CPC 2 Interface transmission minitel + modem 12 modes pour CPC 464/6128 Réf. MEO8  2370,00F +25F 

+ EXT. MEM. PC 640 Kit pour augmenter la mémoire PC de 512 Ko à 640 Ko Réf. ME 09  699,70F | forfait port + emb. 
+ EXT. MEM. PCW 512 Kit pour augmenter la mémoire PCW de 256 Ko à 512 Ko Réf. ME 10 581,10F | Recommandé 

+ LOGICIEL RESTAU. ENTRE Logiciel de gestion d'une cafétéria sur PC Réf. ME11  5930,00F | UNIQUEMENT 

+ LOGICIEL COMITE ENTRE Logiciel de gestion de comité d'entreprise sur PC Réf. ME 12  7116,00F 

+ NEWNET BURO 1 Carte réseau supplémentaire + câble bureau + logiciel Réf. ME 13  2953,10F 

+ NEWNET BURO 2 Valise kit 2 cartes réseau + 1 câble bureau + logiciels Réf. ME 14  6990,00F 

+ NEWNET BURO 3 Valise kit 3 cartes réseau + 2 câbles bureau + logiciels Réf. ME15  947610F | ,50F 

+ NEWNET BURO4 Valise kit 4 cartes réseau + 3 câbles bureau + logiciels Réf. ME16 11966,70F | forfait port + emb. 
+ MERCITEL PCW 1 + Logiciel émulation minitel pour PCW interface + câble PCW/Minitel Réf. ME17 1719,70F | Recommandé 

+ MERCITEL PCW 2 + Logiciel émulation minitel + modem V21 V23 + interface Réf. ME18  3261,50F | UNIQUEMENT 

+ MERCITEL PCW2R Idem PCW 2 + mais modem V21 V23 + réponse automatique Réf. ME 19  3661,50F 


+ MERCITEL PCX Réf. ME 20 


1990,00 F 


Carte modem V21 V23 + logiciel émulation minitel couleur numérotation auto etc. 


— Réseau local PC 1512 et compatibles PC XT AT utilisant MS/DOS 3.1 et au-des- — Chaque interface possède son propre micro-processeur qui soulage le PC de la 
SUS. gestion du réseau. Une ROM peut être ajoutée pour booter directement sur le ser- 


- AMSNET Il est un réseau haute performance à coût adapté à la nouvelle génération veur. 

de machines compatibles. — Un puissant utilitaire permet de gérer la connexion et l'accès du réseau ainsi que le 
— Débit de 1 million de bits par seconde sur câble téléphonique 1 paire torsadée. contrôle du bon fonctionnement. 

- 254 stations connectées au maximum sur le réseau sans serveur dédié. — Une messagerie inter machines est disponible. 


FOURNITURES : AMSNET Il est livré complet avec une carte d'interface, un logiciel d'accès et de gestion du réseau et un câble de raccordement sur une prise PTT murale. 
+ AMSNET || BURO 2 


+ AMSNET I! BURO 3 
+ AMSNET I! BURO 4 


Valise kit 2 cartes réseau + 1 câble bureau + logiciels Réf. ME 21  6990,00 F +50F 
forfait port + emb. 


Valise kit 3 cartes réseau + 2 câbles bureau + logiciels RéLMEZ22 9476,14F | AiPonte 
Valise kit 4 cartes réseau + 3 câbles bureau + logiciels Réf. ME 23  1196,14F UNIQUEMENT 


PROFITEZ DES PRIX BRETAGNE EDIT'PRESSE 


POSSO 


BOITES DE d 
RANGEMENT Pour 13 compact 
MEDIA BOX 


Recommandé facultatif 
par Boîte 7 F en plus 


VIDEO 


Pour 9 cassettes 
j vidéo VHS, V2000 
Beta 


mm Nmun>rmn 


par Boîte 7 F en plus 


Pour 40 Pour 
à 150 disquettes 


", 3" 114, 3" 1/2 


PQ | 
DISQUETTES Port 25 F 


7 Recommandé facultatif 
3 par Boîte 7 F en plus 


CASSETTES AE 


HREmd CU NmzZO>O 


Port 25 F 
762 F Recommandé facultatif 


16 minicassettes 


Recommandé facultatif 


AU D I 0 par Boîte 7 Fan plus | 


DES AFFAIRES A NE 
PAS MANQUER 


Pensez qu'une 
réparation coûte À 
plus cher qu'une 

protection | 


Housses de protection - Simili cuir - (le lot clavier + moniteur) 
Fabriquées et garanties par nos soins. 


pe ee es re 7 
] CPC 464 et 664 | Moniteur monochrome 219 F port + emb. 20 F 
Moniteur couleur 219 F port + emb. 20 F 


CPC 6128 Moniteur monochrome 219 F port + emb. 20 F 
Moniteur couleur 219 F port + emb. 20 F 
J PC1512 Moniteur monochrome 249 F port + emb. 20 F 


| | 
| | 
| | 
| | 
| | 
| | 
| Moniteur couleur 249 F port + emb. 20 F 
| | 
| | 
| | 


MACINTOSH Clavier simple 249 F port + emb. 20 F 
Clavier pavé numérique 249 F port + emb. 20 F 
ATARI ST Moniteur SM 125 219 F port + emb. 20 F 
DMP 2000 Amstrad 110 F port + emb. 20 F 
Lun ssmmmsdlmmemmmmmmll mms ses el 


DES DISQUETTES 


(doubles faces, doubles densités) 


- Disquettes 5" 1/4 avec la pochette 


lot de 10 50 F 
— Disquettes 3" 1/2 avec la pochette 

lot de 10 190 F 
- Disquettes 3" Maxell avec la pochette 


cartonnée, lot de 10 270 F 


Pour 50 
à 70 disquettes 


DISQUETTES ddr 


Recommandé facultatif 


D” 114 : par Boîte 7 F en plus 


LP 
" 
NmOmAOxz" 


VECTORIA 3D 


Un logiciel d'initiation au dessin 
en 3D, sur ordinateur. 

Une bonne approche de la CAO 
(Conception Assistée par Ordinateur), 
facilitée par l'emploi de fonctions 
simples et bien pensées. 

Le logiciel est rapide, permet le dessin 


"8 vues", la présentation 3D et l'intégration 


des objets créés au sein d'un décor. 
Le manuel d'accompagnement 
permet une prise en main 
très rapide du logiciel. 
Vectoria 3D, version PC, 
est utilisable 
sur disquette où disque dur. 
Il utilise la souris ou le clavier. 


Au prix exceptionnel 
e Sur PC a 


e CPC 6128 410 


Très bientôt sur ATARI et AMIGA. 


BON DE COMMANDE Bien inserire ls ARTICLES dans 


la bonne rubrique ; le port étant cal- 
a adresser à BRETAGNE EDITPRESSE -- La Haie de Pan culé en fonction de l'objet a 
35170 BRUZ -- Tél. 99.57.9037 expédier. 


CALCULEZ LE COUT : Montant de l'article + Port = VERITE DES PRIX 


Envoi UNIQUEMENT en recommandé (20 F par cassette) 


Envoi Poste : 10 


-Branchez 
Scolaire - Utilitaire 


£. | Etudiez 


Envoi UNIQUEMENT en recommandé (20 F par logiciel) 


Housses - Disquettes 


Envoi 20 F/housse + 7 F en recommandé — disquettes forfait 20 F (étranger, nous consulter) 


MONTANT GLOBAL 


Je joins mon règlement chèque bancaire [1 chèque postal  [] mandat carte bleue [1 


IMPERATIF 
Si vous choisissez le paiement 
par Carte Bleue, n'oubliez pas 
d'indiquer le n° de la carte et 
la date de validité ainsi que 
votre signature 
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N° CARTE BLEUE [LOT OT OT OT UT OT OT OT OT OT OT OT 7] 


Signature 


DATE Limit de validité [T1 111 


Ce logiciel est un simulateur de billard 
américain ou ‘‘pool”” avec 15 boules 
numérotées et une blanche. Il y a en fait 2 
règles, la première est décrite dans les livres 
spécialisés et celle qui est utilisée dans les 
‘‘cafés””’. La différence essentielle se situe à 
plusieurs niveaux : le comptage des points, les 
pénalités, le côté du joueur. Ces deux règles 
sont donc intégrées dans le logiciel, les 
joueurs choisissant celle avec laquelle ils 
préfèrent jouer. Est incluse aussi la façon de 
tirer sur la boule de choc, soit par un 
affichage de la queue de billard directement 
sur la table, soit par une représentation sur le 
côté, cette dernière façon de faire étant 
nettement plus difficile pour tirer dans une 
direction particulière. Les principales règles 
sont incluses dans le programme. 


E PROGRAMME se compose de plusieurs modules 

chaînés entre eux. Le programme ‘’BILLARD’’ est 

un chargeur qui ere Le HIMEM à &B86AE afin 

de pouvoir charger le programme ‘’DATA.IMG"', 

résultat de la compilation d’une image faite à par- 
tir d’un logiciel de dessin. Le programme suivant appelé 
DATA.DEC est un décompilateur qui va afficher le des- 
sin de présentation pendant que les autres program- 
mes se chargent. On trouve le programme OBJET qui 
est le programme en langage machine de déplacement 
des boules. Puis la procédure se termine par le char- 
gement du programme BASIC principal. Une fois 
chargé, on demande au joueur les règles désirées, c’est- 
à-dire les règles officielles ou les règles de ‘’café’’, en 
fonction de la réponse, le calcul des points sera diffé- 
rent. L'affichage direct est le mode le plus simple car 
la représentation de la queue se fait directement sur la 
table, alors que l'affichage sur le côté est une repré- 
sentation da lé direction par rapport à la boule. Une 
fois ces questions complétées, l’écran devient noir puis 
au bout de quelques instants, l'écran de jeu apparaît. 
A gauche, il y a la table de billard vue du dessus. A 
droite, en haut, il y a les cases contenant les boules qui 
tomberont dans les blouses. En dessous les scores des 
joueurs s'inscrivent. Juste au-dessus du score d’un 
joueur, se trouve un point jaune indiquant lequel des 
deux joueurs va jouer. Dans le cas des règles de café, 
le joueur ne s'affiche pas aussi longtemps qu'aucune 
boule n’est tombée dans une blouse. Les joueurs jouent 
donc à tour de rôle. A droite de la table se trouve la 
valeur des boules, elles sont numérotées de haut en bas 
et de gauche à droite, les dizaines ne sont pas indiquées 
mais sont comptées dans le jeu. Suivent trois tableaux 
de détermination du tir. La boule blanche isolée ou 
entourée par un segment blanc représente la boule de 
tir. Dans le cas de la méthode de tir sur le côté, le seg- 
ment blanc représente la direction du tir. Juste en des- 


56 


Lionel GARDEUR 


sous se trouve une représentation symbolique d’une 
boule et la fin de la queue afin de simuler la position 
de la queue par rapport à la boule pour lui imprimer 
un effet. Pour finir, en dessous, se trouve une règle gra- 
duée qui détermine la force du tir. 


Le programme assembleur. 


De &9000 à &935F, il y a les dessins des boules de 
billard. Etant donné que l'affichage se fait en mode 0, 
il y a 2 représentations pour une boule. Le dessin des 
boules de deux couleurs a été inversé afin de simuler 
un mouvement de la boule. Théoriquement la gestion 
des sprites se fait par un programme spécialisé qui com- 
prend la hauteur et la largeur. Ici, ce n’est pas néces- 
saire étant donné qu'il n’y a qu'un seul type de sprite, 
en l'occurrence les boules de billard. En fonction de la 
position paire ou impaire de la boule, on affiche l’un 
ou l’autre sprite de la même boule. 

Les tables RTAT et RTA2 sont celles utilisées par le pro- 
gramme de gestion de l'effet. En fait, l'effet se maté- 
rialise par une modification de l'angle, soit dans le sens 
trigonométrique, soit dans l’autre sens ; il y a donc deux 
tables. Pour avoir la déviation modifiée, il suffit de cher- 
cher dans la table la valeur de DX et DY, puis de pren- 
dre les deux valeurs suivantes. 

Table DRO et GAU : les deux premiers octets donnent 
l'indice dans la table, on obtient les coordonnées d’af- 
fichage de la boule quand elle tombe dans un trou, il 
suffit d'afficher aux coordonnées X et Y la boule cor- 
respondante puis d’incrémenter le pointeur, pour pré- 

arer la boule suivante. 

a table TT est la table des trous. Elle est divisée en 
trois colonnes, les deux premières colonnes sont les 
positions des trous, la troisième donne l’octet pour la 
mise à jour dans la table TBT. 

Les octets FPX et FPY contiennent la future position de 
la boule avant affichage. 

Les octets TBXY mémorisent la table des chocs. 

Les octets APXY contiennent la position actuelle de la 
boule. 

Les octets RE servent pour affecter les registres IX et IY. 


LA TABLE DES CHOCS. TBC 


1100000000 


Lorsqu'une boule tombe dans un trou grâce à l’octet 
de la troisième colonne de la table TBT, on met à jour 
cet octet, ce qui permettra de déterminer si elle tombe 
à droite ou à gauche. 


CPC N° 32 - Mars 1988 


\-/ 


Pointeur dans la table 


Nombre de chocs au 
cours du coup joué 
Choc de côté (bande) 


Adresse des boules 
choquées 


Les tables T1 à T8, en fonction du déplacement de la 
boule, il y a choc si et seulement si une boule se trouve 
aux positions adéquates, ces tables donnent les posi- 
tions relatives en fonction du déplacement de la boule 
sachant que le premier octet donne le nombre de posi- 
tions possibles d’une boule. 


TABLE TCB 
2900010000 000C00E 
1 


\ 


9000000000 
MAENES ra 
LL urnes 


ADRESSE SPRITE IMPAIR 
ADRESSE SPRITE PAIR 
AN 1 e 
EFFET + CHOC | 
"DECIMALE" DE LA VITESSE 
ANGLE DE CHOC MOYEN 
x2 

Y2 

WUTILISE 

AN1 


Table relative pour chaque boule 

En O et 1 on a l’adresse du sprite à afficher. 

Y et X est la position de la boule. 

DY et DX correspondent à la déviation en x et y. En 
faisant une rotation sur ces octets, s’il y a débordement, 
alors il y a modification de la position de la boule. 
Vitesse : reflet de la vitesse de la boule, elle varie de 
1 à 10. 

L'octet SS est spécial : en fonction des bits positionnés 
et des octets DY et DX on peut déterminer le sens et la 
direction de la boule. 


GOGODEERR 


oDX>0 
1DX<0 
0DY>0 
1DY<0 j 
© Pas de déplacement en x > 0 
1 Déplacement x > 0 
0 Pas de déplacement x < 0 
… 1 Déplacement x < 0 
0 Pas de déplacement y > 0 
1 Déplacement y >0 
D Pas de déplacement y < 0 
1 Déplacement y < 0 
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Pour chaque boule il y a donc &20 octets de réservés 
afin de gérer tous les déplacements des boules. 

Les tables TS et TC sont des simili tables de sinus et cosi- 
nus qui donnent en fonction d’un angle et de la vitesse, 
la vitesse résultante. 

La table TBT correspond aux boules tombées. 


Adresse dans la table 


Nombre de boule 


Numéro de la boule 


Côté de chute 
00 à droite 
01 à gauche 


En &98AD commence le programme proprement dit, il gère 
le déplacement des boules de billard et ne rend la main au 

rogramme BASIC que lorsque toutes les boules se sont immo- 
Lilisées. Les explications contenues dans le listing source doi- 
vent être suffisantes pour comprendre l'algorithme, en résumé, 


e &98AD à &997A 

C'est la boucle principale, c'est ici qu'est gérée l'initialisa- 
tion du nombre de chocs sur la bande, le nombre de boules 
en mouvement, l’initialisation du registre IX qui pointe sur 
la table TCB de la boule en mouvement, la vitesse de la boule 
avec le ralentissement. Le déplacement de la boule se fait par 
appel à un sous-programme en &997C., l'affichage des bou- 
les tombées dans une blouse, la mise à jour de la table TBT, 
l'effacement et l'affichage de la boule à sa nouvelle position 
et enfin c'est ici que l’on détermine s’il y a encore une boule 
en mouvement. 

e &997C à &99E2 

On gère le déplacement de chaque boule, on calcule la posi- 
tie future de la boule et avec un appel au sous-programme 
TCHOC, on vérifie s’il y a un choc, si oui, on continue sur 
CHOC sinon on passe à la position suivante. Le nombre de 
déplacements dépend de la vitesse. 

e &99E3 à &9A72 

Sous-programme de test en cas de choc. On commence à ini- 
tialiser la table des chocs, puis on vérifie s’il ÿ a un choc sur 
la bande ou une chute dans une blouse. Sinon on charge la 
table des coups en fonction de la direction de la boule. C'est 
à partir de cette table que l’on vérifie s’il y a choc avec une 
autre boule. 

+ &9A73 à &9AB6 

On initialise le registre HL avec une des tables T1 à T8 en 
fonction de la direction de la boule. 

e &9AB7 à &9AD1 

Mise à jour de la table TBC dans le cas de choc avec une 
boule. 

e &9AD4 à &9B4A 

C'est ici que se fait le test pour savoir si la boule tape contre 
une bande ou bien tombe dans une blouse. 

+ &9B4B à &9B6A 

Oninitialise le sprite d'affichage de la boule en fonction de 
la position de la boule (position paire ou impaire en x). 

+ &9B6B à &9B7B 

Mise à jour de la table TBC 

e &9B7C à &9EAE 

C'est la partie la plus importante du programme, c'est ici que 
l’on gère les chocs entre les boules ou contre la bande. On 
teste si la boule est tombée dans un trou, si oui, on arrête le 
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sous-programme sinon on regarde si c'est un choc de côté, 
si oui, on ralentit la boule, on incrémente pour cette boule 
le nombre de chocs bande, on met à jour le côté du choc, on 
calcule la nouvelle direction puis on saute au programme qui 
gère l'effet. Dans le cas d’un choc avec une boule, on met 
à 0 les octets qui servent pour ce choc, oninitialise le registre 
IY avec l’adresse de la boule choquée, on calcule l’octet SS 
de la boule choquée, ensuite les directions DX2 et DY2 en 
fonction du choc, enfin l'angle de choc. 

On initialise ensuite DX1 et DY1 afin de pouvoir calculer 
l'angle de rebond de la boule en mouvement. On calcule la 
vitesse des boules choquées à partir du calcul précédent des 
angles et de la table des ‘’sinus’’ puis la vitesse résultante 
dl boule de départ à partir de la table des ‘’cosinus’”’. 
Pour terminer, on gère l’effet, tout simplement en modifiant 
l'angle de rebond en fonction du sens. 

Sachant que l’octet qui se trouve en (IX + # 1 1) correspond 
à l'effet, on y met le nombre déterminé par la déviation de 
la queue sur la boule et en fonction du sens, on positionne 
le bit 8. En cas de choc, on inverse le sens de rotation de la 
boule. 

Suivent un certain nombre de sous-programmes : 

le premier détermine l'angle de la boule en fonction du sens 
et de la déviation en X et Ÿ de la boule. Sachant que le cer- 
cle trigonométrique ici ne comporte que 32 angles différents. 
Ensuite on trouve le sous-programme SAN qui est en fait un 
sous-programme de CAN. 

Le sous-programme MAN est utilisé par le sous-programme 
EFFET et c’est lui qui modifie l’angle de rebond à droite ou 
à gauche, il utilise les sous-programmes qui suivent et qui 
sont : XP, XN, YP et YN. 

Afin d’avoir un affichage constant des boules le sous- 
programme AT est une temporisation variable qui dépend 
du nombre de boules en mouvement. 

Le sous-programme CPT affiche les boules tombées dans les 
blouses. 

Le bruitage est effectué par le sous-programme BRU qui uti- 
lise les 3 tables TBR1, TBR2 ET TBR3, pour charger les 
registres du PGES. 

Le programme AFF est celui qui permet d'afficher les sprites 
des boules, il a été adapté pour ce jeu afin de gagner en rapi- 
dité et pour avoir un affichage au pixel. 

En &AN00, c'est l'appel par le BASIC pour afficher une 
boule, appelé par CALL &A100, x, y, ad avec x et y la 
osition de la Loue et ad l'adresse du sprite à afficher. 

n &A110, c’est l’initialisation des tables DRO, GAU et 

TBT en début de partie. 


Quelques informations supplémentaires 


La vitesse : à partir du BASIC, on détermine la force par 
la variable FO qui est ‘’pokée’’ en IX + 6, en supposant que 
IX pointe sur la boule que l’on frappe. Donc, en IX + 6 on 
a un octet compris entre 1 et 10, en IX+ 10, on a au départ 
0, on ajoute une valeur égale à # 10 à chaque fois que l’on 
déplace la boule. Quand cet octet déborde, on décrémente 
la vitesse, donc l’octet IX +6. Ainsi lorsque l’octet IX +6 arrive 
à O, la boule s'arrête. C'est l’octet IX + # 10 que j'ai appelé 
‘’décimale’’ dans le programme source. 


Le programme BASIC principal 


10 à 90 


Demande des règles 
100 


Demande types de règles et de tir 
110 à 190 

Data d'initialisation de la table TCB 
200 à 240 

Data des angles de tir 

250 à 450 

Initialisation des variables 


460 à 550 
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Raz des couleurs 

560 à 590 

Dessin de la table 

600 à 680 

Dessin des quatre coins 
690 à 72 

Dessin des quatre boulons 
730 à 76 

Dessin des quatre rebords 
770 à 82 

Dessin des diamants 

830 à 1000 

Dessin des trous 

1010 à 1060 

Dessin du titre 

1070 à 1100 

Affichage de ‘BILLARD’ 
1110 à 1200 

Dessin du tableau des scores 
1210 à 1330 

Dessin du tableau de la direction et de la force 
1340 à 1450 

Dessin de la valeur des boules 
1460 à 1490 

Dessin de la boule de choc 
1500 à 1640 


Dessin des boules sur la table 


Initialisation de la partie 

1660 à 1720 

Mise à jour des couleurs après dessin de l’écran 
1730 à 1760 

Affichage du score des joueurs 

1770 

Positionnement de la boule blanche sur la table 
1790 à 2100 

GESTION DE LA DIRECTION DU TIR 

1830 à 1870 

On affiche la boule de tir 

1880 


Test si fin de partie 

1890 

Mise à O de la partie décimale de la vitesse 

1900 à 1950 

En fonction de AF on affiche la queue au niveau de la table 
ou sur le côté 

1960 à 2010 

Entrée d’un caractère 

2020 à 2100 

En fonction de la touche enfoncée, ou de la méthode de tir, 
on affiche la queue de billard 

2110 à 2210 

GESTION DE L'EFFET 

2220 à 2330 

GESTION DE LA FORCE DE TIR 

2340 à 2480 

DEPLACEMENT DES BOULES 

2390 à 2410 

On initialise les variables de la boule 

2420 à 2430 


rs jour en mémoire des variables dans la table TCB 
4 


S'il s’agit des règles officielles, on mémorise la position des 
boules 


2450 
Mise à O0 de l’octet &940F 
2460 


Raz du nombre de chocs sur les bandes 

Déplacement des boules par appel au sous-programme en 
langage machine 

Comptage du nombre de chocs sur les bandes 

2470 


Détermination du nombre de boules tombées 
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2480 

Raz du nombre de boules tombées 

2490 à 2920 

CALCUL DES POINTS 

2540 

Détermination en fonction de la règle 

2550 à 2730 

Règles de café 

2740 à 2920 

Règles officielles 

2930 à 3050 

FIN DE PARTIE 

3060 à 3190 

AFFICHAGE DU SCORE ET DU JOUEUR 

3090 à 3120 

Affichage du joueur 

3130 ë 3190 

Affichage du score des joueurs 

3200 8 3320 | 

Calcul des points en fonction de la position des boules tom- 
bées et de leurs valeurs 

3330 à 3390 

Sous-programme de remise à zéro du nombre de chocs sur 
la bande 

3400 à 3490 

Sous-programme de comptage du nombre de chocs sur la 
bande 

3500 à 3670 

Sous-programme de déplacement de la boule blanche sur la 
table d'effacement 

3680 à 3780 

Sous-programme de la boule blanche lorsqu'elle tombe dans 
une blouse 

3790 à 3850 

Sous-programme de mémorisation de la position des boules 
numérotées 

3860 à 3930 

Sous-programme de vérification de la position des boules 
3940 à 4380 

Règles du jeu 

4390 à 4420 

Détermination du type de la règle 

4430 à 4470 

Détermination de la méthode de tir 


Les variables principales 


A 
Angle de tir 
AF 


Couleur de la queue définie au départ en fonction de la 
méthode de tir 
AN 


Ancien angle de tir 

ANBT 

Adresse de la boule de tir 

Nombre de boules tombées 

Côté des boules tombées 

Effet 

DE 

Effet corrigé 

ai mis à 1 si la boule de choc est tombée dans une blouse 
FL 

Flag mis à 1 si une boule au moins est tombée à droite 
FL 

Flag mis à 1 si une boule au moins est tombée à gauche 
Flag mis à 1 s’il n’y a pas eu de mouvement de boule après 
e tir 
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FO 

Force de tir 

FSP 

Flag d'affichage de la boule blanche en fonction de sa 
osition 
1,12 

Permet l'affichage de la détermination du joueur 

JOUEUR 

Numéro du joueur à jouer 

JOUEUR 1 

Score du joueur 1 

JOUEUR 2 

Score du joueur 2 


Matrice contenant les angles de tir 

MPX, MPY 

Mémorisation de la position des boules avant le tir 
NB 


Numéro de la boule tombée 
BC1 


Nombre de chocs sur la bande de la première boule 
numérotée 
NBC2 


Nombre de chocs sur la bande des autres boules numérotées 
Numéro de la boule de choc 
UV 


Flag permettant de savoir si c’est le début de jeu dans le cas 
d'une partie avec les règles officielles 
PB 


Flag mis à 1 si la boule blanche est tombée dans une blouse 
PE 

Point de pénalité 

PK 


Adresse de la boule de choc dans la table TCB 
POSX, POSY 


Position de la boule blanche lors de la mise en place sur la 
table 
RE 


us déterminant le type de règles choisi 
Matrice d'adresse des sprites 


S 
Octet SS mis à jour dans la table TCB pour déplacement de 
la boule 


CO du nombre de boules tombées au cours de la partie 
T 


Nombre de points par le comptage des boules numérotées 
au cours du coup 
OTD 


Total des points à droite 
TG 

Total des points à gauche 

TT 


Adresse dans la table GAU ou DRO du pointeur 
VX, VY 
re en X et YŸ de la boule de choc 
CA 
Mémorisation de la position de la queue avant déplacement 
X3, X4 
Position de la queue après déplacement 
4 


Position de la queue 

AFO$ 

MEET d'affichage graphique normal 
We d'affichage graphique XOR 
Chaîne représentant le score du joueur 1 
J2$ 


Chaîne représentant le score du joueur 2 
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Hisoft GENA3.1 Assembler. Page 2. 
Hisoft GENA3.1 Assembier. Page je 
1 errors: 00 570 y Table des trous 
580 4 
19 oRG 69000 93C8 BA5301 590 TT: DEFB #BA,93,1 
20 y 93CB BA5201 600 DEFB 6BA,62,1 
30 Dessin des boules 93CE B95301 610 DEFE 
40 3 93D1 BAO8O8 620 LEFR 
9000 50 DBOIr  DEFS 54 93D4 B90808 630 DEFE 
9036 60 DBO21 DEFS 54 93D7 BAO?08 640 DEFB 
906C TO DBO3: DEFS 54 93DA 675302 650 DEFR 
9042 80 DBO41 DEFS 64 9300 685302 660 DEFB 
°0n8 90 DBOSs DEFS 54 93E0 665302 670 DEFB 
| 910€ 100 DBOér  DEFS 54 93E2 470810 680 DEFB 
9144 110 DBOTs  PEFS 54 93E6 580810 690 DEFB 668,8,#10 
D 917A : 120 DBOBr DEFS 54 93E9 660810 700 DEFR #46,8,#10 
#1B0 130 DBOS1  DEFS 54 93EC 155304 710 DEFB #15,83,4 
91Eé 140 DBO101 DEFS 54 93EF 155204 720 DEFB #15,82,4 
921c 150 DBO11: DEFS 54 93F2 165304 730 DEFB #16,83,4 
9252 160 DBOIZ+ DEFS 54 | 93F5 150820 740 DEFB o 
pee Fo LE DEEE EE |93F8 150920 750 DEFB #15,9,870 
: : 
72 Po DPOIAT- DES 04 93FB 160820 1eù : LEFB #16,8,620 
932A 0 DBOIé: DEFS 54 780 1: 
10 ; 
220 yTBL DE DEVIATION POSITIF Le É SAONE SENS 
230 ! ° 
9360 FFOOFFOI 240 RTAis  DEFB 6FF,0,8FF ,1 ul 00 Es oB: EEE Û RAS 
ee CERN OS 2 pers 9410 0000 820 FPX: DEFB 0,0 iFuture pos, en x 
936C 11FFOIFF 270 DEFB 941Z 0000 830 FPY: DEFB 0,0 iFuture pos. en y 
9414 0000 840 TBXY1  DEFW O0 19 table en XY 
9370 00FF so DEFB 600,6FF 9416 0000 850 APXYI  DEFM O0 yPosition de depart en Y et X 
0 9418 00 860 NBB: DEFB © iNumero de la boule 
300 4Tbi deviation neg. 9419 0000 870 RE: DEFW 00 1Reserve temporaire 
310 y 880 
9372 OOFFOIFF 320 RTAZ1  DEFB 890 pTbi de chocs 
9376 11FF55FF 330 DEFB 900 } : 
P3TA FFFFFF56 340 DEFB #6FF,6FF,6FF,666 941B 00 910 DEFB © 10ctet pour boule tombee La 
93TE FFIIFFOI 350 DEFB 6FF,#11,6FF,1 941C 2094 920 TBC: DEFW TBC+4 
9382 FFO00 360 DEFB #FF,0 941E 0000 930 DEFW 00 INb de choc + choc cute 
370 4 Pos. boules tombees 9420 940 DEFS 18 iTable des chocs 
9384 8693 380 DRO: DEFW DROI 950 1 à 
9386 BO9EB69E 390 DROI1  DEFB 128,158,134,158 960 4 Tbl de pos boules pour chocs à 
938A 8C9E929E 400 DEFB 140,158,146,158 970 y ; 
938E P89EBOAT 410 DEFB 152,168,128,167 9432 11 980 Ti: DEFB 17 | 
9392 B6ATBCAT 420 DEFB 134,147,140,167 9433 O5FDO3FC 990 DEFB 5,#FD,3,#FC,1,#FB,0,8FR à 
9396 9ZATIBAT 430 DEFB 146,167,152,167 943B FFFBFEFB 1000 DEFR 6FF,0FD,6FE ,0FB è 
939A BOBO86BO 440 DEFB 128,174,134,176 943F FDFBFDFC 1010 DEFB #FD,#FB,#FD,8FC s 
939E BCBOY2BO 450 DEFB 140,174,146,176 9443 FCFCFBFC 1020 DEFB #FC,#FC,6FB,68FC & 
93AZ 9BBOFFFF 460 DEFB 162,176,255,265 9447 FBFDFAFD 1030 DEFB #FB,6FD,6FA,#F"D 
n 9316 A893 470 GAUr: DEFW GAUI 944B F9FDF9FE 1040 DEFR 6F9,6FD,6F9,0FE 
93A8 629E689E 480 GAUIr  DEFR 9R,158,104,158 944F FSFEFBFF 1050 DEFB 6F8,6FE,6F6,0FF 
8 93AC 6E9ET749E 490 DEFB 110,158,116,158 9453 F7FF 1060 DEFB #F7,6FF 
2 | 93B0 TASE6ZAT 500 DEFB 122,158,98,167 9455 11 1070 T2: DEFB 
| 93B4 éBAT6EAT 510 DEFB 104,167,110,167 9456 O8FFO7FE 1080 DEFB $ 
RS | 93B8 TAATTAAT 20 DEFB 116,167,122,167 945C O5FDO4FC 1090 DEFB s 
Q 93BC 62B068B0 530 DEFB 98,176,104,176 9462 O2FBOIFB 1100 DEFB 
& 93C0 6EB074B0 540 DEFB 110,176,116,176 9469 FFFBFEFB 1110 DEFB FB,#FE,6FB,6FD,#FC 
5 93C4 TABOFFFF 550 DEFB 122,116,255,265 946E FCFCFBFD 1120 DEFB FC,6FB,#FD,6FA,6FD 
ë Fr 560 4 9474 F9FEFBFF 1130 DEFB FE,#F8,0FF 


a hs 1 | 
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5 
Mu 9478 11 1140 T3» DEFB 17 9581 1720 DEFS 9 
M 9479 OFFOBFF 1150 DEFB 958A  A290 1730 DEFW DBO4 iBoule 4 
9481 OTFDOéFD 1160 DEFB 958C 97 1740 DEFB 151 
ë 9489 O4FCO3FC 1170 DEFR 958D 30 1750 DEFB 48 
9491 O1FBOOFB 1180 DEFB 1,#FB,0,6FB,6FF,6FB,#8FD,#1( 958E 1760 DEFS 15 
D | 9499 FBFD 1190 DEFR eFB,#FD 959D A290 1770 DEFW DBO4 
È 949B 11 1200 T4: DEFB 17 959F  BD90 1780 DEFW DB04+27 
949C 05030304 1210 DEFB 5,3,2,4,1,5,0,5 95A1 1790 DEFS 9 
94A4 FFOSFEOS 1220 DEFB 6FF,5,0FE,5,6FD,5 95AA F390 1800 DEFW DENG+27 {Boule 5 
SA4AA FDO4FCO4 1230 DEFEB #FD,4,8FC,4,8F0,4 95AC 9D 1810 DEFB 197 
94B0 FBO3FAO3 1240 DEFB #FB,3,#1A,3,#F7,3 95AD 27 1820 DEFB 39 
94B6 F902F802Z 1250 DEFB #F9,2,#78,2,8FR,1 9SAE 1830 DEFS 15 
94BC F701 1260 DEFB 6F7,1 9580 D890 1840 DEFW DBNS 
P4BE 11 1270 T6: DEFB 17 Ÿ 95BF  F390 1850 DEFW DBOS+27 
94BF 08010702 280 DEFB 8 95c1 1860 DEFS 9 
94CT 04040304 1290 DEFB 4 SCA 2991 1870 DEFW DBO6+27 iBoule 6 
94CF 000%FFO05 1300 DEFB Ô 95CC 9D 1880 DEFB 157 
94D5 FDO4FCO4 1310 DEFE # 3 x 95CD 33 1890 DEFB 51- 
94DB FAO3F902 1320 DEFB # ‘1 95CE 1900 DEFS 15 
94E1 11 1330 Té:s DEFB 1 95DD 0E91 1910 DEFW DBOé 
94E2 09010801 1340 DEFB 9 95DF 2991 1920 LEFW DBOé+27 
P4EA 07030603 1350 DEFB 7 95E1 1930 DEFS 9 
4 94FZ 04040304 1360 DEFB 4 95EA 5F91 1940 DEFH DBO7+27 iBoule 7 
94FA 01050005 1370 DEFB 1 FD,4,#FB,3 95EC 9D 1950 DEFB 157 
9504 09 1380 T7: DEFB 9 9SED 20 1960 DEFB 45 
9505 FDFCFBFD 1390 DEFB #FD,6FC,#FB,#FD,#F9,#FE 9SEE 1970 DEFS 15 
950B F&FFF700 1400 DEFB #F8,#FF,#F7,0,#F8,1 95FD 4491 1980 DEFW DBO7 
9511 F902FB03 1410 DEFB #F9,2,6FB,3,68FD,4 95FF  5F91 1990 DEFW DBO7+27 
9517 09 1420 TS: DEFR 9 9601 2000 DEFS 9 
9518 O3FCOSFD 1430 DEFB 3,68FC,5,#FD,7,#FE,8,8FF JéOA TA9I 2010 DEFW DBO8 iBoule 8 
9520 09000801 1440 DEFB 9,0,6,1,7,2,5,3, 960C A3 2020 DEFB 163 
1460 960D 24 2030 DEFB 36 
1460 y 960€ 2040 DEFS 15 
1470 pTbl. carac. boules 9SéiD 7A9I 2050 DEFW DB08 
1480 y 9é1F 9591 2060 DEFW DB08+27 
= 952A 1B90 1490 TCB: DEFW DBO1+27 jRoule ! 9621 2070 DEFS 9 | 
952C 32 1500 DEFB 50 1Position en Y 962A BO91 2080 DEFW DBO9 jBoule © 
9520 2D 1510 DEFB 45 pPosition en X 962C A3 2090 DEFB 143 ù 
952E 0000 1520 DEFW 00 jDeviation en X et Y | 962D 36 2100 DEFB 54 
9530 00 1530 DEFB O0 iVitesse boule è 962E 2110 DEFS 15 
9531 00 1540 DEFB © i0ctet 55 963D BO91 2120 DEFW DBO9 | 
9532 1550 DEFS 11 963F CB91 2130 DEFW DEO9+27 | 
953D 0090 1560 DEFW DBO1 9641 2140 DEFS ® 
953F 1B90 1570 DEFW DBO1+27 9é4A Eé9l 2150 DEFW DB010 iBoule 19 
9541 1580 DEFS 9 9640 A3 2160 DEFB 163 
954A 65190 1590 DEFW DBOZ+27 1Boule 2 964D 30 2170 DEFB 48 
9540 91 1600 DEFB 145 964€ 2180 DEFS 15 
954D 2D 1610 DEFB 45 965D Eé91 2190 DEFW DED1Q 
954€ 1620 DEFS 15 965F 0192 2200 DEFW DBUIU+27 
955D 3690 1630 DEFW DROZ ?ééi 2210 DEFS 9 
9556F 6190 1640 DEFW DBOZ+27 6é6n 1C92 2220 DEFW DRBO11 1Boule 11 
9561 1650 DEFS 9 Sééc A3 2230 DEFB 163 
956A 6C90 1660 DEFW DBO3 iBoule 3 966D ZA 2240 DEFB 42 
9560 97 1670 DEFB 151 964€ 2250 DEFS 15 
956D ZA 1680 DEFB 42 967TD 1C?2 2260 DEFW DOI 
956E 1690 DEFS 15 SéTF 3792 2270 DEFW DEUI1+27 
957D 6C90 1700 DEFW DBO3 9651 2280 DFFS 9 
957F 8790 1710 DEFW DBO3+27 | JéBA 4D92 2290 DEFW DBOI2+27 Boule 12 
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Hisoft GENA3.1 As bler. Page 5. j 
984A 01010203 2880 DEFB 1,1,2,93,5,6,7,7, à 
9é8c A9 2300 DEFB 169 S85A 01010204 2890 DEFB 1,1,2,4,6,7,8,8, 
968D 21 2310 DEFE 33 986A 00010204 2900 DEFB 0,1,2,4,7,8,9,9, 
968E 2320 DEFS 15 SB8TA 00010205 2910 DEFB 0,1,2,5,7,9,10,1 o,10,10,10 
969D 5292 2330 DEFW DBO12 2920 } 
969F 6D92 2340 DEFW DBO12+27 2930 jTable IBT des boules tombees | 
véai 2350 DEFS 9 S88A BD98 2940 TBTs DEFW 1B1+02 | 
PEAR A39Z 2360 DEFW DB013+27 Boule 13 988C 00 2950 DEFB © iNbre de boules tombees | 
PéAC A9 2370 DEFB 169 seen 2960 TBTlr DEFS 16v2 | 
SéAD 39 2380 DEFB 57 2970 À 
i PéAE 2390 DEFS 15 2980 Debut programme 
| 96BD 8892 2400 DEFW DBO13 2990 } 
9éBF A392 2410 DEFW DBO13+27 SBAD AF 3000 XOUR A 
| séci 2420 DEFS 9 9BAE 0610 3010 LD  B,#10 INb de boules 
| 96éCA D992 2430 DEFW DBO14+27 iBoule 14 98B0 210495 3020 LD HL,ICP-620 
gécc A9 2440 DEFB 169 98B3 112000 3030 LD DE,#0020 
96CD 27 2450 DEFB 39 98Bé 19 3040 DEB: ADD HL,DE 
9écE 2460 DEFS 15 S8BT 221994 3050 LD CRE) ,HL 
: 96éDD BE92 2470 DEFW QBO14 SBBA DDZA1994 3060 LD IXÇURE) ' 
! 9éDF D992 2480 DEFW DBO14+27 98BE DD7708 3070 LD, (CIX+8) ,A finit. nb cher bande 
9éE1 2490 DEFS 9 98C1 DD7710 3080 LD CIX+#10),A pinit. decimale vitesse 
JéEA 0F93 2500 DEFW DBO15+27 1Boule 15 98C4 10F0 3090 DJNZ DEB 100 passe à la boule suivante 
PéEC A9 2510 DEFB 169 98cé 0610 3100 STARTOI LD B,#10 INb de boules | 
96ED 33 2520 DEFB 51 98C8 AF 3110 XOR A ANb de bouler en mvt 
96EE 2530 DEFS 15 98C? 210495 3120 LD HL,1CR-#20 
96éFD F492 2540 DEFW DBO15 98CC 112000 3130 STARTII LD DE,#0020 
96éFF  0F93 2550 DEFW DBO15+27 98CF 19 3140 ADD HL,DE 1deb. table des boules 
9701 2560 DEFS 9 98D0 221994 3150 LD CRE) ,HL 
JTOA 4593 2570 DEFW DBO16+27 iBoule 16 98D3 DDZA1994 3160 LD IX,URE) iCharaement Index IX sur boule 
97TOC A9 2580 DEFB 169 98D7 C5 3170 PUSH BC en cours E 
970D 2D 2590 DEFB 45% 98D8 E5 3180 PUSH HL 
970€ 2600 DEFS 15 98D9 F5 3190 PUSH AF 
971D 2A93 2610 DEFW CBOIé 98DA DD7E02 3200 LD A,(IX+2) fOn verifie si boule tomber ds trou 
9TIF 4593 2620 DEFW DBO16+27 seDD 87 3210 OR A stest si boule tombee 
9721 2630 DEFS 9 SBDE CA7599 3220 JP Z,FINZ 1Saut si tombee 
2640 } 98E1 DD7E06 3230 LD A,(IX+6) 1 Vitesse 
2650 Table de sin 98E4 B7 3240 OR CL) test si boule en mouvement 
2660 } SEL CA7599 3260 JP Z,FIN2 iVitesser0 
972A 00000000 2670 TS: DEFB 0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0 98E8 47 3260 LD B,A 1B=vitesse 
973A 01010101 2680 DEFB 1,1,1,1,1,1, lol toi 98E9 DD7E10 3270 LD A,UIK+#10) {Partie ‘decimale de V 
9T4A 02020202 2690 DEFB 2,2,2,2,1,1,1,1,1,1,1 sit 98EC CéiF 3280 ADD A,#1F ralentissement 
975A 03030303 2700 DEFB 3,3,3,3,2,2,1,1,1,1,1 “1,1 98EE DD7710 3290 LD CIX+#10),A 1Rgt derimale 
9TéA 04040404 2710 DEFB 4,4,4,4,3,2,1,1,1,1,1 “tt 9eF1 D2FA98 3300 JP. NC,SIARTZ 
9TTA 05050504 2720 DEFB 5,5,5,4,3,29141s14141 151 98F4 05 3310 DEC & ivitessesvitesse | 
9TSA 06060605 2730 DEFB 6,6,6,5,4,3,2,1,141,1 1 98F5 DD7006 3320 LD UIX4#6),B 
9TSA OTO7OT06 2740 DEFB T,7,706, 5352900 t0 11 °8F8 2878 3330 JR Z,FIN2 pSaut à la Pin si vitesse=u 
STAA 08080807 2750 DEFB 8,8,8,7,6,4,2,111,1,1 1.1 98FA DDé603 3340 STARIZ2: LD H,CI1X+3) 
9TBA 09090908 2760 DEFB 9,9,9,8,6,4,2,1,1,141 st1 98FD DDéE02 3350 LD L,CIX+2) 
9TCA OAUA0OPOP 2770 DEFB 10,10,9,9,7,8,3,1,1,1 1,1,1 9900 221694 3360 LD CAPXY)I ,HL 
2780 } 9903 CD7C?9 3370 CALL DEP tdyplacement boule 
2790 Table de cos 3380 jMaj tbi TBT 
2800 } 9906 3A1B94 3390 LD A,(TBC-1) 
9TDA 00000000 2810 TC: DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,0 9909 B7 3400 OR A 
9TEA 01010101 2820 DEFB 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 990A 2833 3410 JR Z,START3 
97TFA 01010101 2830 DEFB 1,1,1919296202920202020202420202 990C 3E02 3420 LD A,2 1 TROU 
980A 01010102 2840 DEFB 114142123630 303%30336 203343 990E CDé5AO 3430 CALL ERU 
9B81A 01010102 2850 DEFB A1,1,1,2,7,4,4,4,4,4,4,4,4,4,4,4 9911 F1 3440 FOF AF 
982A 01010103 2860 DEFB 5050888,6:5:5%:515 9912 Ei 3450 FOP  HL 
983A 01010203 2870 DEFB 1,1,2,3,4,5,6,6,6,6,6:6,6,6,6,6 
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| 
re 9913 C1 34460 POP BC 3B8=-17-No boule | 9982 DD7707 4040 LD CIK#7D ÇA 
= 9914 ES 3470 PUSH HL 9985 4F 4050 LD C,A 
9915 F5 3480 PUSH AF 9986 2600 4060 LD H,0 U possen X de la 
5 9916 3E11 3490 Lo CRCEN! 9988 DDéE03 4070 LD L,CIXe2) boule 
= 3500 Calcul du no de la boule 9988 DD7E0S 4980 Lo A,CIX+5) tdeviation L 
£ 9918 90 3510 SUB R ‘ ÿA=uumero boule 998E O7 4090 RLCA psi carry deviation 
9919 ZABA9E 3520 LD HL,(TBT) #HL pointe sur debut table 998F 3010 ‘100 JR NC,JF2 
991C 77 3530 LD CHLD,A 9991 CB49 4110 BIT LC itest du sens 
991D 3A1B94 3540 LD A,CTBC-1) 9993 2807 4120 JR Z,JPI1 
9920 Eéo7 3550 AND #7 9995 2B 4130 DEC HL pxen-t 
9922 BT 3360 OR A 9996 DDCBO7TES 4140 SET 4,(1X+7) 
9923 2802 3570 JR Z,DETEN 999A 1805 4150 JR JP2 | 
9925 3EO01 3580 LD A,1 999C 23 4160 JP11: INC  HL pusxel Î 
9927 23 3590 DETEIs INC HL 999D DDCBO7DE 4170 SET 3,01X+7) | 
9928 TT 3600 LD CHL) ,A ve si » | si droite 9SA1 DD7705 4180 JP2Z: LD CIX+8) ,A 
9929 23 3610 INC HL 9FA4 221094 4190 LD CFPXI ,HL 
992A 228A98 3620 LD CTBT) ,HL SYAT 2600 4200 LD 4,00 1pos. en y de 
992D AF 3630 XOR A 99A9 DDéEO0Z 4210 LD L,CIM42) {la boule 
992E 321B94 3640 LD UTBC-1),A wraz 1BC-1 9PAC DD7EO4 4220 LD A,CIX4+4) ideviation en y 
9931 3A8C98 3650 LD A,CTBT+2) S9AF O7 4230 RLCA 1si carry -Vdeviation 
9934 Céo! 3660 ADD A,1 99B0 3014 4240 JR NC,JF3 
9936 328098 3670 Lo CTBT+2),A 99B2 C851 4250 BIT 2,C itest du sens 
9939 F1 3680 POP AF 99B4 2808 4260 JR Z,JP21 
993A El 3690 POP HL 99B6 2B 4270 DEC HL dyer il 
993B 108F 3700 DJNZ STARTI 19n passe à la boule suivante 99BT DDCBO7F6 4280 SET 6,(1X+7) 
993D 1828 3710 JR FINII 99BB DDCBO7Dé 4290 SET 2,(1X+7) 
993F DDé603 3720 START35 LD  H,(IX+3) 99BF 1805 4300 JR 1P3 
9942 DDéE02 3730 LD  L,(CIX+2) 99C1 23 4310 JP21: INC HL sysvei | 
9945 221094 3740 LD CFPXI,HL 99CZ DDCBOYEE 4320 SET ,(I1X+7) Î 
9948 ZA1694 3750 Lo HL, CAPXY) 99Cé 221294 4330 JP3: LD CFPYIHL 
994B DD7403 3760 LD CIX+3) ,H 99C9 DD7TO4 4340 LD C1X4 4) ,A | 
994E DD7502 3770 LD CIX#2),,L 99CC CDE399 4350 CALL TCHOC dtest si choc si nul au | 
9951 CDAFAO 3780 CALL AFF 99CF B7 4360 OR A retour AG 0 
9954 Z2A1094 3790 LD  HL,(FPX) [9900 c27c98 4370 JP. NZ,CHOC tchoc l 
9957 DD7403 3800 LD CIX+3) ,4 99D3 Z2A1294 4380 JP41 LD HL,(FPY) jon restaure pus en y | 
995A DD7502 3810 LD CIX92) ,L 99D6 DD7502 4390 LD (RESTES 
995D CD4B9B 3820 CALL EXSPR 99D9 Z2A1094 4400 LD HL,(FPX) ton restaure prs en x 
9960 CDAFAO 3830 CALL AFF 99DC DD7503 4410 Lo C1X+3) 41 [ 
9963 Fi 3840 POP AF 99DF Ci 4420 JP41r FOP BC 1compteur de vitesse 
9964 Céoi 3850 ADD A,1 1+i boule en mouvement 99E0 109A 4430 F5: DJNZ DEP 
9966 El 3860 FINI: POP HL 99E2 C9 4440 PS: RET | 
9967 Ci 3870 POP BC | 4450 ; Î 
9968 1005 3880 DJNZ FIN3 tOn passe à la boule suivante | 4460 Test Si choc | 
996A BT 3890 FINIIs OR A psi A°0 ,pas de boule en 4470 | 
996B C2Cé698 3900 JP. NZ,STARTO 99E3 CDéB9B 4480 TCHOCr CALL MIRE jraz tables | 
996E C9 3710 RET gretour au basic 99E6 CDD4SA 4490 CALL CCHNC glest si choc de cote 
996F CDIAAO 3920 FIN3: CALL AT FOUR DJNZ TROF LOIN 99E9 3A1B94 4500 LD A,(TEC-1) Si choc # à | 
9972 C3CC98 3930 JP. STARTI 99EC B7 4510 aR A ee 
9975 AF 3940 FINZ: XOR A 3RAZ octet S5 99ED CO 4520 RET NZ | 
99176 DD7707T 3950 LD UIX+7) ,A | 99EE 3AI1F94 4530 LD A,(1BC+3) | 
9979 Fi 3960 FOP AF |99F1 87 4540 OR A 
9ITA  1SEA 3970 JR FINI |99F2 co 4550 RET NZ 
3980 } 99F3 CD739A 4560 CALL CHGTRL fChgt table des coups 
3990 Gestion deplacement des boules 99F6é B7 4570 OR A plest si omvt Ctheort. umpuss.) 
4000 3 99FT C8 4580 RET 7 
c5 4010 DEP: PUSH BC 99F8 221494 4590 uv CIBXY) ,HL 
DD7EO7 4020 LD AÇCIX+7) soctet SS 99FB 0610 4600 LD R,#10 


E606 4030 AND #6 4RAZ bits 0,3,4,5,et # 99FD 210A95 4610 Lo HL,TCB-e20 


RS 


Hisoft GENA3.1 Ass Hisoft GENA3.1 Assembier. Page 
9A00 C5 PUSH BC SATI 86 5200 ADD A,(HL) 
ELLE 112000 4630 LD DE,#20 SATZ C9 5210 RET 
9AO4 19 4640 ADD HL,DE pointe sur YZ 5220 ! 
FAOS 221994 4650 LD CRE) ,HL ® 5230 4 Chargement table de choc 
SAOS FDZA1994 4660 Lo IV,URE) Alnt. Lundex LY 5240 } 
9AOC ES 4670 PUSH HL 1Sauv. val. neb 1CB 9AT3 DD7EO7 5250 CHGTBL:r LD AYUIKXET) AUCTET SS 
4680 jMeme boule? SATé E678 5260 AND #78 Selection bits 3,4,5 et «€ 
SAOD DD221994 4690 LD CRED ,IX SATB 2001 5270 JR NZ,SUIT1 
SA11 ED5B1994 4700 LD DE,(RE) 40n a HL-'IY et DE->1X JATA C9 5280 RET 
9A15 B7 4710 OR L) SATB FEO8 5290 SUITI: CF LE] 
SAlé ED5Z 4720 SBC HL,DE SATD 2004 5300 JR NZ,SUITZ 
9A18 284? 4730 JR Z,FBOU | SATF 21BE94 5310 LD HL,15 3DX°0 DY-0 
4740 On verifie si la boule est tombee gA8BZ C9 5320 RET 
SAIA FD7EO2 4750 LD A,(IY+2) 1Pos en 12 9A83 FE10 5330 SUITZ: cr 10 
SAID B7 4760 OR A IMAJ indicateur 9A85 2004 5340 JR NZ,SUI13 
SALE 2843 4770 JR Z,FBOU La boule n'est plus sur la table SABT 215594 5350 LD HL,72 aDX<U Dr=u 
4780 jOn regarde si la boule est trop loin SABA C9 5360 RET 
9AZ0O FD7EO3 4790 LD A,CIY+3) 1AS=X2 SA8B FE20 5370 SUIT3: cr #20 
SA23 DD9?603 480c SUB CIX+3) YA=X2-HI SA8BD 2004 5380 JR NZ,SUIT4 
SAZ6 F22B9A 4810 JP P,S1 slest si a-n SASF 211796 5390 LD HL,18 4DX=0 Dr 0 
9A29 ED44 4820 NEG dsinon A-X1-X2 FA9Z C9 5400 RET 
9A2B Dé0é6 4830 Si: SUB’ 6 TASABS(XZ-K1)-6 9A93 FE40 5410 SUITA4: cr #10 
JAZD F2639A 4840 JP  P,FBUU Boule trep loin 9A95 2004 5420 JR NZ, SUIS 
9A30 FD7EOZ 4850 LD A,UIY+2) FA=Y2 SAT 210495 5430 LD HL,I7 1DX=0 DYeo 
9A33 DD?602 4860 SUB (1X+2) VA=Y2-Y1 JAYA C9 5440 RET 
9A36 F23B9A 4870 JP P,S2 9A9B FE28 5450 SUITS: CF #28 
9A39 ED44 4880 NEG 9APD 2004 5460 JR NZ,SUITé 
9A3B D60OA 4890 S2: SUB 10 FABS(YZ-YI)-10 PA9F 21E194 5470 Lo HL,16 1DX>0 DY>o 
SA3D F2639A 4900 JP P,FBOU SAAZ C9 5480 RET 
4910 Il y a possibilite de choc car la boule est assez proche SAA3 FE30 5490 SUITér CP #20 
SA4O 2ZA1494 4920 S21: LD HL,CTBXY) iNb de cas ds la tabie SAA5 2004 5500 JR NZ,SUII7 
9A43 46 4930 LD B,(HL) SAAT 217894 5510 LD HL,173 1DX<0 DY>0 
PA44 23 4940 INC HL 1Fointe sur debut table JAAA C9 5520 RET 
9A45 FD7EOZ 4950 LD A,UIY+2) qA=Ye SAAB FE48 5530 SUIT7r CP #48 
9A48 DD9602 4960 SUB (CIX+2) pA=YZ-YI SAAD Z004 5540 JR NZ,SUITS 
; 9A4B 57 4970 LD D,A SAAF  219B94 5550 LD HL,T4 1DX>0 Dvr:u 
SAA4C FD7E03 4980 LD A,UIY+3) SABZ C9 5560 RET 
SA4F  DD?603 4990 SUB (1X+3) SAB3 213294 5570 SUITS: LD HL,Ti 1DX<0 Dr'o 
9A62 56F 5000 LD E,A SABé C9 5580 RET 
9A53 TA 5010 S22: Lo A,D || 5590 1 
JAB4 96 5020 SUB (CHL) HA=YI-Y2-REF 5600 MISE A JOUR CHOC DS TABLE CHOC 
9A55 2008 65030 JR NZ,S3 5610 7} 
SAST 23 5040 INC  HL SABT 3A1E94 5420 MCHOC: Lo A,CTBC+2) 
9A58 7B 5050 LD A,E SABA Cé01 5630 ADD A,1 +1 CHOC AVEC 1 BOULE 
SA59 96 5060 SUB  (HL) HA=XI-X2 REF SABC 321E94 5640 LD CTBC+2) ,A 
SABA  CABTIA 5070 JP Z,MCHOC MAJ CHOC SABF ZA1C94 5650 LD HL,(TBC) 
SA5D 1801 5080 JR 533 SACZ FD221994 5660 LD CRE) ,I1Y 
SAGSF 23 5090 S31: INC HL JACé ED5B1994 5670 LD DE,(RE) 19 caract. boule choquee 
9A6O 23 5100 S33: INC HL PACA 73 5680 LD CHL)I ,E 
9A61 10F0 5110 DJNZ S22 SACB 23 6690 INC HL 
5120 On n'a pas trouve de correspondance entre les 2 boules SACC 72 5700 LD CHL) ,D 
9A63 E1 5130 FBOU:s POP  HL 1Puint raract. boule SACD 23 5710 INC HU 
PA6A Ci 5140 POP BC INb de boule PACE 221C94 5720 Lo CBC) HE iNouvelle val. du pointeur 
PA6S 1099 5150 DJNZ S0 iNouvelle bnule SADI C3639A 5730 JP FBoUu 10n continue pour choc avec 
JA6T GAÏE94 5160 Lo A,UTBC+2) Nbr de choc 5740 } une autre boule 
JA6GA  211B94 5170 Lo HL,1BC-1 + boule tombee 5750 { CHOC SUR UN COIE ET BOULE TOUMBEE 
FA6D 86 6180 ADD A,CHL) 5760 1 
PAGE 211F94 5190 LD  HL,TEC+3 1+ Choc sur cote 9AD4 DDCBO7SE 5770 CCHOCI BIT 3,(1X+7) 
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9AD8 280€ 5780 JR z,CCi tlest si DY 0 

9ADA DD7EO3 5790 LD A,CIX+3) 

SADD D653 5800 SUB 83 6380 ; 

SADF 2019 5810 JR NZ,CC2 DDCBO346 6390 EXSPRr BIT O,(1X+3) nest de parite 

9AE1 211F94 5820 LD  HL,1BC+3 ila boule touche $ 2800 6400 ZiExI 

9AE4 CBCé 5830 SET O,(HL) 6410 FIMPAIR 

SAE6 1812 6840 JR ccz DD4415 6420 B,CIX+#15) 

9AES DDCBO7Téé 5850 BIT 4,(1%+7) ATest si Die Ÿ DD7000 6430 U1%60),8 
"| PAEC 280C. 5860 JR Z,CCZ È DD461é6 4440 B,CIX+#16! 

9AEE DD7EO3 be7o LD A,CIK+3) DD7001 6450 C1X# 10,8 
|2AF1 D608 5880 suB 8 cv #460 

9AF3 2005 5890 JR NZ,CC2 6470 FAIRE 

AFS 211F94 5900 LD HL,TBC+3 4La boule touche à gauche DD4613 6480 EXi: 

9AF8 CBCE 5910 SET 1,(HL) DD7000 6490 

SAFA  DDCBO7TéE 5920 BIT S,(IX+7) iTest si Dr>o DD4614 6500 

9AFE 280€ 5930 JR. Z,CC3 DD7001 6510 

9B00 DD7EOZ 5940 LD . A,(IX+2) c? 6520 RET 

9B03 DéBA 5950 SUB #BA à 6530 } 

9B05 2019 5960 JR NZ,CC4 6540 3RAZ TABLE DES CHOCS 

9B0T 211F94 5970 LD HL,TBC+3 1La boule touche 6550 + 

9BOA CBDé 5980 SET 2,(HL) 212094 6540 MIBCr ‘LD  HL,TRC+4 


9B0C 1812 5990 JR cca 221C94 6570 LD  (TBC),HL 
9BOE DDCBO776 6000 BIT 6,(1K+7) Test si DY<O AF 6580 XOR A 


9B12 Z280C 6010 JR Z,CC4 321B94 6590 LD CTBC-1),A 
9B14 DD7EO0Z 6020 LD A,UIXe2) 321E94 6600 LD C1BC+2) ,A 
9B17 Déis 6030 SUB #15 321F94 6410 LD UTBC+3),A 


6360 } 
6370 FECHANGE ADRESSE DES SFRITES 


9819 2005 6040 JR  NZ,CC4 6620 
9B1B 211F94 6050 LD  HL,TBC+3 iLa boule touche 6630 } 
9B1E CBDE 6060 SET 3,(HL) 6640 CHOC 


6070 Test si boule tombee ds trou 


6450 
9B20 DD7E06 6080 CC4r * LD AyUIX+6) 


| 
6660 CHOC: BC 1Compteur de vitesse 


9823 6090 cP 6 6670 A,(TBC-1) Cas boule tombee ds trou 
9826 6100 RET P 6680 A 


9826 6110 Lo B,18 6690 Z,CH1 


9829 6120 Lo HL,TT 6700 Boule tombee dans un trou 

9B2B 6130 PUSH BC 6710 yon Initiniise TCB de la boule 

#B2C 6140 B,CIX+2) 2A1694 6720 HL,CAPXY) 

982F 6150 A DD7403 6730 CIX+3) ,H 

9830 é160 DD7502 6740 CIX#2) ,L 

9831 6170 6750 AFF 10n efface la boule 
9833 6180 éTéo cPT tAffichage boule tombee 
9B34 6190 6770 0 1A=0 

9837 6200 6780 CIX42) ,A AYe0 

9838 6210 6790 “Retour au prog principal 
9°B39 6220 6800 Choc de cote? 

9B3B 6230 6810 CHis LD A,(TBC+3) 1Octet choc de cote 
9B3C 6240 6820 OR A 

9B3D 211894 6250 6830 JR Z,CHé 

9B40 Bé 6260 6840 CHOC DE COTE 

9B41 77 6270 6850 FUSH BC 10n resauvegarde EC dans le 
9B42 Ci éz80 9 6860 AF cas d'un choc de cote 
9B43 C9 6290 6870 A,1 

9B44 23 6300 CDésA0 6880 BRU ACOTE 

9B45 23 6310 3AOF 94 6881 A,(0B) 

9B46 23 6320 FE00 <882 © 

9B47 C1 6330 9 2005 6883 HZ,CHIII 

9B48 10E1 6340 3E01 6884 ë n,1 

PB4A C9 6350 320F94 6885 . Can) ,A 
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9BBO 
°BB1 
9882 
9BB3 
9BB4 
9BB7 
9BBA 
9BBC 
9BBF 
sBc2 
#BC3 
sBcs 
sBcé 
9Bc9 
#BcC 
9BCE 
sBDI 
9BD2 
s8D3 
9BD5 


9BD7 
SBDA 
sBDc 
9BDE 
9BE1 
9BE4 
9BEé6é 


9BES8 
9BEB 
9BED 
9BEF 
98F2z 
ÿBF6 
9BFT7 


9BF9 
9BFC 
9BFE 
?coo 
9co3 


9co6 
9co9 
9coB 
9cop 
9c1i0o 


9c13 
?cié 
9c19 
scic 
9CiF 
9c22 
9c25 
9c28 
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9C9E 
9C9F 
9CA2 
PCA4 
?cÂA6 
PCA? 
CAB 
PCAF 
9cBO 
#cB1 
9CB4 
?cBé 
9cBe 
9CBA 
9cBC 
9CBE 
9CBF 
9cco 
scc2 
9cc4 
9ccé 
9cc7 
9cce 
9ccB 
9ccD 
9cD1 
9cD5 
#cD7 
°CcDB 
9cDc 
9CDE 
9CEO 
CE 
9CcE2 
9CE4 
?CcEé 
9CcES8 
9CcE? 
9CEA 
9CED 
9CEF 
9cF1 
9CF3 


9CF4 
9cFé 
scF8 
9cF9 
ÿCcFB 
SCFD 
9CFF 
901 
9D03 
905 
9D07 
9009 
9108 
#D0D 


» 
Fi 

ci 

Le] 

F5 
DD4606 
DD7E10 
CéoF 
DD7710 
DzCé69B 


DD7006 
DD7E08 
céoi 
DD7708 
F1 

47 
CB40 
Z80D 


DD7EO07 
EéE6 
Fé12 
DD7707 
C3489E 
cB48 
2800 


DD7EO7 
E6E5 
F608 
DD7707 
C3489E 
CB50 
z80D 


DD7EO07 
Eé9B 
Fé44 
DD7707 
C3489E 


DD7EO7 
E69B 
F620 
DD7707 
C3489E 


DD77OA 
DD7708 
DD770C 
DD770D 
DD770E 
DD770F 
CDés AO 
3A0F 94 


B7 
FAA49C 
1807 
3E44 
FDY7O7 
1813 
FDCBO7YEE 
TA 

B7 
F2B69C 
ED44 
Déoi 
2004 
0E07 
1808 
7B 

B7 
2004 
O0EO1 
182E 
7B 

B7 
FACD9C 
180A 
FDCBO7CE 
FDCBO7Eé 
1804 
FDCBOTDE 
7B 
Dé05 
2008 
79 

B7 
2010 
0E06 
180c 
7B 

DT 
FAEF9C 
1802 
ED44 
céoi 
4F 


16FF 
1EFF 
79 

EEO1 
2004 
1600 
182E 
EE03 
2004 
1601 
1826 
EEO! 
2004 
1611 


6890 
6700 
6710 
6920 
6930 
6940 
6950 
é960 
69170 
6980 
6990 
7000 
7010 
Toz0 
7030 
7040 
7050 
T060 
7070 
7080 
7090 
7100 
7110 
1120 
f130 
7140 
7150 
7160 
7170 
1180 
1190 
1200 
1210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
1320 
7330 
1340 
7350 
7360 
7370 
1360 
7390 
7400 
7410 
7420 
1430 
T440 
T441 


8000 
8010 
8020 
68030 
8040 
8050 
8040 
6070 
8080 
6090 
8100 
8110 
6120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 


CHILI 


1CHOC 


C9is 
c?2: 


Calcul 


Ciis 


Page 


Fage 


13. 


FOP AF 

LA LL BC 

PUSH BC 

PUSH AF 

UD R,CIX+6) 
LD A,ÇCIX+#10) 
ADD A,6F 

LD CIX4+#10) ,A 
JP NC,CHII 
DEC B 

JR NZ,CHII 
INC B 

LD 
LD 
ADD 
Lo 
POP 
LD 


C1X+6) ,8 
A,CIX+8) 
A,1 
U1X+8),A 
AF 
B,A 
BIT 0,8 
JR Z,CH3 
A DROITE 
LD A,CIK#7) 
AND #E5 
OR #12 
LD CLX# TD A 
JP EFFET 
BIT 1,B 
JR Z,CH4 
= gauche 
Lo AÇCIX47) 
AND 6E5 
OR LL] 
Lo CIX4TD A 
JP EFFET 
BIT 2,B 
JR Z,CH5 
en haut 
LD 
AND 
OR 
LD 
JP 
bus 
LD 
AND 
OR 
LD 
JP 


A,CIX#7) 
CET 

#44 
CIX4 7) ,A 
EFFET 

en 
A,CIX4T) 
LE] 

#20 
CIX47) ,A 
EFFET 


0 caracteristique boule 


LD 
LD 
LD 
LD 


CIX48A) A 
CIX46B) ,A 
CEX4 #0) A 
CIX# D) ,A 
LD  (CIX+#E),A 
LD  CIX+#F),A 
CALL BRU 


15. 


OR L} 

JF M,C33 

JR C4 

LD A,944 

LD CIV+7) ,A 
JK 
SET 
LD 
OR 
JP 
NEG 
sus 
JR 
Lo 


NZ,Cé 
c,7 

JR  Céé 

LD AE 

OR A 

JR NZ,Céé 
LD  C,i 

JR  Cii 

LD AE 

OR A 

JP M,Cé7 

JR C7 

SET 1,(1Y+7) 
SET 4,(1Y+7) 
JR C8 

3, CLY+7) 
A,E 

s 

NZ, C9 
A,C 

A 


NZ,C11 
c,6 
cit 
AE 

L] 
Mm,C91 
c?2 


A, 
C,A 


LD 
LD 
LD 
KXOR 
JR 
LD 
JR 
XOR 
JR 
Lo 
JR 
XOR 
JR 
LD 


D,6FF 
E,#FF 


de vxz et vyz en fc 


sVitesee 
iDecimale 


iNbre de choc 
dti 


bande 


is P 


plest si choc droit 


quctet SS 

IRAZ bits 1,3 et 4 
IMISE A 1 BITS 1 ET 4 
RER 


1lest si 
Non ? 


choc gauche 


ioctet SS 
HHAZ bit 1,3 et 4 
iMise à 1 bit 3 


ilest si choc haut 


tKaz bits 2,5 et 6 


1RAZ bits 


choquee 
JA est = a 0 


+HOULE 


451 YICY2Z ALORS GuIU C4 


3Dv2-0 
sys eo 


tAS V2 -VI 


HABSUYZ-Y1)-1 


3CHNCe7 


151 XI8X2 ALORS GQ10 Céé 
ACHOC=1 DX2=0 


10X2<0 


10x20 


#SI CHOCs0 


CHOC =6 


ACHOC=X2Z-KX1+1 
t du chac 


VYZ-FF VXZ=u0 


AVY2-FE 


vx 


AVY2=FF VX2=11 


Hisoft GENA3.1 Assembier. 


?c20 
9Cc2F 
9c31 


9c34 
9c37 
9c38 
9c3B 
?c3c 


9c3D 
9C3E 
9c3F 
9c40 
9C44 
9c48 
?c48 
9C4E 
9C4F 
cm1 
9c52 
?c54 
9c5s5 
?°cs5e 
?c5B 
9C5E 
9CSF 
?Céi 
?céz 
9Ccé4 
9cées 
9ces 


PCéA 
9céD 
9c7ro 


#c71 

9C7T4 
9C7T 
9c78 
9c79 
sc7c 
9c7D 
9C7TE 
9ce0 
#cse2 
9c83 
9csé6 
9ce7 
9ces 
9ceB 
?cep 
9c91 

9c9s 
9c9T 
?c9B 
sc9D 


zo05 
3E02 
320F94 


GA1E94 
47 
212094 
cs 
ES 


6€ 
23 
L12 


EDS31994 
FDZA1994 


DD7EOD 
FD4602 


DD700D 
DD7E0E 
FD4603 


DD700E 
0E00 


FD7E02 
DD9602 
67 


FD7E03 
DD?603 
6F 

AF 
FD77TO7 
TA 

B7 
201D 
0E08 
AF 
FD7707 
7B 

B7 
FA8D9C 
1804 


FDCBO7YCE 
FDCBOTEé 


185D 


FDCBOTLE 


1857 
TA 


7443 
T444 
7445 
7450 
7469 
7470 
7480 
7490 
7500 
7510 
7529 
75239 
7549 
7550 
7569 
7570 
7580 
7590 
7600 
Té10 
7620 
T630 
7640 
Té50 
7660 
Té7o 
7680 
Té90 
7700 
7710 
7720 
7730° 
1740 
7750 
7760 
7779 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7909 
7910 
7920 
7930 
7940 
7950 
7960 
72170 
71980 
7990 


CHOC 
CH7+ 


LUE 


iDetermination 


coz: 


{Calcul 


Calcul 


Cir 


C2: 


C3: 


Fage 


JR 
LD 
LD 


LD 
Lo 
LD 
FusSH 
PUSH 


Lo 
INC 
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9D0F 
9011 
9D13 
9015 
9017 
9D19 
?D18 
#D1D 
9D1F 
9021 
9023 
°D25 
9D27 
9D29 
#D2B 
9020 
902F 
9032 
9135 
938 
9038 
903€ 
9D41 
9D42 
9D43 
9D46 
9D47 
9D49 
9D4A 
9D4D 
9D4F 
9051 
9D54 
955 
#58 
LEE 
SDSA 
?D6B 


181€ 
EEO7 
2004 
1655 
1816 
EEO1 
2812 
EE03 
2004 
1Es5 
1804 
EEO1 
2004 
1E11 
1802 
1E00 
FD7EO7 
FD7304 
FD7206 
cDC99E 
FD77OA 
110600 


DD7TEO4 
B7 
2807 
CcBO7 
30FC 
DD7704 
DD7E06 
B7 
2807 
CRO7 
30Fc 
DD7705 


DD7E07 
DD5EO04 


8580 
e59°0 
8600 
8610 
8620 
8620 
8640 
8650 
8660 
8670 
8480 
e690 
8700 
e710 
8720 
8730 
8740 
8750 
e7éo 
8770 
e7e0 
8790 
8800 
8810 
e820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
89720 
8930 
8940 
8950 
e960 
8970 
8780 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
#080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 


Page 


NZ,CHT 
AZ 
COR) ,A 


A,UTEC+2) 

R,A 

HL,1BC+4 

LL 

LS 

boule choquee 
E, CHL) 

Hi 

D,(HL) 
CRE) ,DE 
IY,CRE) 
A,CIX+0D) 
B,(1Y+2) 


tCaract 
FA=VE 


z- 


« me Xe me Le ms 
>X--»xX--0x> 


EXT x 
410n ini 


CHOC =R 


pDY2-0 


DOWN NI>E»-2NZE-EM-DIOD-» IN -D>»ENETD>-TDD>ENE 


16. 


car 
T 
Nz,C15 
D,#58 
ci7 

1 
Z,C17 
3 


Nz,C16 
E,055 
ci7 

o1 

N7,C18 
E,#11 

c17 

E,00 
A,CIY#7) 
CIY44),€ 
C1Y+6) ,D 
CAN 
CIY+#A) A 
DF,6 

Hi 

«F 
ALCLX+8F) 


Z,C20 


ALCIK+6F) 
L} 
c19 
co 
AF 
CIX48F) A 
BC 
HL 
CT 

DJNZ C21 


choc 


- boule ds 1 


tiallse l'octet 5S2 a 0 


AVV2SFF VX2:65 


AVXIRFF VY2SFF 


AVY2=65 VXZ=FF 
MAP 
EVY2=00 
Rat v2 


iCalcul de 
iigt angle 


1AeA1+A2 
HCAÏ+A2)/2 


YFOUR DJNZ CO (TRUP LOIN) 


iRgt angle moyenne de choc 


1Deb table suivant ds TEC 


1 
10n fait RLEA jusqu'a bit O=1 et si #80 de VXI ET VYi 


1Calcul 


1 
ANT: 


LD A,(IX+4) 
GR A 

JR Z,RR2 
RLC A 

JR NC,RRI 
LD CIK44) ,A 
LD A,(IX+5) 
OR A 

JR Z,ANI 
RLC A 

JR NC,RR3 
LD UIX+5),A 
de l'angle ANI 
in 
LD 


A,UIX#7) 
E,CIX+4) 


Evvi 


1RÜTATION 


iRat vyi 
vx 


e nom propre évo- 

que pour la multi- 

tude le vin. À vrai 
dire, Dionysos (ou Bacchus 
pour les Romains) était le 
dieu de la végétation, donc 
de la vigne en particulier. 
Ce logiciel vous propose de 
gérer l'immense cave que 
vous possédez comme tout 
Français digne de ce nom. 
Après le RUN ‘’’MENU'’ 


traditionnel, vous avez 


accès à deux options : la 
gestion de cave et la base 
de données sur les grands 
vins de France. 

Commençons par le 
urgent : mettre un peu 


lus 
1 
or- 


68 


DIONYSOS 


ts 


dre dans vos trésors. Bien 
entendu, si vous ne possé- 
dez que du Bougnat vil- 
lage, bouteille en plastique 
cru 1987, ce logiciel ne 
vous sera pas d’une 
grande utilité. Chaque fiche 
comprend plusieurs rubri- 
ques : appellation, nom du 
cru, région, millésime, nom 
et adresse du négociant, 
date d'entrée, nombre de 
bouteilles, prix, observa- 
tions, reste en cave. 

Une option permet de lister 
tous les vins présents ou 
bien d'en choisir un particu- 
lièrement. Une petite envie 
de Jurancçon sec ? Choisis- 


sez ‘’sortir une bouteille’’ 
et indiquez le nombre de 
bouteilles nécessaire à 
étancher votre appétit. 
lun seul coup d'œil, vous 
avez accès à un tableau 
contenant le millésime, le 
nombre de bouteilles (avec 
l'indication d’un stock insuf- 
fisant}, le prix unitaire et 
actualisé. Une petite sauve- 
garde avant de passer à 
l’autre option principale : 
la base de données. Celle- 
ci contient à la fois une liste 
des crus et une liste des 
mets. 
La liste des mets est établie 
avec les noms de régions : 
Alsace, Bourgogne, Val de 
Loire, Provence, Corse, 
Sud-Ouest. Une fois la 
sélection effectuée, un 
autre choix doit être fait 
dans les vins. 
Exemple : en Champagne, 
on me propose trois vins : 
le Champagne, le Rosé des 
Riceys et le Coteaux cham- 
penois. Pour chaque vin, 
on nous précise l’appella- 
tion, les catégories féuae. 
blanc, rosé), ainsi que le 
prix moyen schématisé par 
des bouteilles de 1 à 3. En 
choisissant ‘’’Rosé des 
Riceys’’, on accède à une 
feuille d'informations con- 
cernant la qualité des 
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années (de médiocre à 
exceptionnelle), la tempé- 
rature supportée, le vieillis- 
sement moyen et les plats 
qui peuvent accompagner 
le vin. En appuyant sur une 
touche, vous apprendrez 
l’année d'appellation, la 
production moyenne, le 
cépage et le degré mini- 
mum. 
La liste des mets permet un 
choix en fonction d’un 
menu donné. Par exemple, 
our la bouillabaisse, le 
ogiciel nous a conseillé 
Bandol, Côtes de Pro- 
vence, Côtes d’Aix-en- 
Provence, Bellet, Cassis et 
Côteaux de Baux-de- 
Provence. Chacun restant 
libre de choisir selon ses 
préférences. 
Tous les choix et les dépla- 
cements utilisent les flèches 
du curseur, donc pas de 
problème de prise en main 
d'autant que les comman- 
des sont soulignées en bas 
de page. 
Des mises à jour régulières 
vous seront proposées afin 
de garder une certaine 
actualité dans votre cave. 
Le logiciel remplit (!} son 
office. Le seul reproche 
important peut être fait à la 
présentation qui est un peu 
sommaire. 


ROANNE 


AMSTRAD 


Logiciels 


Formation 
Maintenance 
Club utilisateurs 
Fournitures 


42300 ROANNE 
Tél. 77.70.56.67 
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STYLO OPTIQUE : De loin le meilleur de tous, le stylo optique 
de réaliser de véritables chef 
itation très complet. 


DART à fibre optique vous permettra 
d'œuvres. Fourni avec logiciel d'explo 
Cstylo optique (disquette) 
Cstylo optique (cassette) ... 
SCANNER GRAPHIQUE : Ce scanner, 
permettra de digitalier toute image 


Produits DART 


2 boutiques spécialisées Amstrad 


PROFESSIONNELLE : 22, rue de Montreuil 94300 VINCENNES - (1) 43.28.00.71 
FAMILIALE : 20, rue de Montreuil 94300 VINCENNES - (1) 43.28.22.06 
ouvert du mardi au vendredi 10 h 30-13 h et 15 h-19 h le samedi 10 h 30-19h 


495F 
.… 445F 
très simple d utilisation, vous 
sur support papier, à partir 


AMSTRAD 


DIGITALISEUR ARA 


Ce digitaliseur vous permettra non seulement de digitaliser des 
images vidéo provenant d'une caméra mais aussi des images 
provenant directement de votre T.V. Un logiciel très complet vous 
permettra d'embellir, retoucher, stocker... les images digitalisées. 
Entièrement français. 

digitaliseur ARA CPC 


cadeau digitaliseur ARA PC 
1 joystick 


4 logiciels 


de la DMP 2000. Fourni avec un logiciel d'exploitation très puissant. 
C scanner graphique “DART" 


Câble imprimante AMSTRAD 

Vous permet de connecter votre AMSTRAD à n'importe quelle im- 
primante au standard “centronic”. 

câble imprimante CPC . 

câble imprimante PC 


Rallonge alimentation + vidéo 

Cne soyez plus collé à l'écran, rallonge 464 

ne soyez plus collé à l'écran, rallonge 6128 

housse pour moniteur + clavier (préciser coul. ou monoc.) 
ruban imprimante DMPI (par 2) 

ruban imprimante DMP 2000 

adaptateur periteltous CPC 


INTERFACE TV 
POUR AMSTRAD CPC 


175F 


Grâce à cet interface le moniteur de votre Amstrad CPC vous 
servira aussi de T.V. 


Dintetface TV. sus crnpaseus anetteys JA40F/1190F 
[interface T.V. avec télécommande 1690F 


CPC 6128 couleur + imprimante 


4495 F 


“Il ne lui manque que la .parol P 


Ddisq. 3" 
Cldisq. 3" (par 10)....... 
Cdisq. 5"1/4 (par 10) vèvs se 
Cicassettes vierges (par 10):..56: ose sescensts 


votre ordinateur plus bavard qu'un}palitigien rie 
synthétiseur vocal vu | 
17 logiciels vocaux sur disquette . 


imprimante DMP 2160 
interface RS232 pour CPC . 
Csouris par CPC 

[interface RS232/centronic PCW 
2e lect. disq. CPC 

[2e lect. disq. PCW 

scanner PCW 

CImagnétophone CPC (avec câble) 


PC 1640 la gamme comp — 


PC 1640 SD monochrome... 6510 F 
PC 1640 SD couleur 9999F 
PC 1640 DD monochrome .. 7690 F 
PC 1640 DD couleur ……. 11250 F 
[1 PC 1640 HD 20 monochrome 11250 F 
PC 1640 HD 20 couleur... 14800 F 


LOGICIELS CPC 
C D C D C D C D C D 

3 D grand prix ....... O110F Ü145F carte de france ..... . 0150F Ü165F hit:pack...::sess 100F 145F maths 5-4 (alg. 5-4e) O220F silent service ........ 110F C1160F 

3 D stunt rider ....... D1100F C1145F CNOID 52 sas 155F 0185F hit pack Il (6 logic.) ... C1105F C145F maths 6 (algb. 6e) .... [1170F CJ200F  sorcerer lord... O195F C1255F 

7 logiciels vocaux .... [1195F C1195F colossus chess 4 ..... 110F O175F hit pack II .......... 115F O155F maths cm ........... 220F [1260F space moving .. 295F C1395F 

découverte de la vie .. 195F combat school ...... O155F mgt + maraca. + billy C1155F C1195F maths second cycle ... C1195F C1235F sram 2 .... 220F 

découv. homme sc. nat. 195F conjuguer cp/cm ..... 285F imagine's arcade hits . [1125F C1155F mentel O545F strangeloop .......... 110F O155F 

Sinon ueusre 115F Ü155F CAZY CRT acer 135F D185F impression 200F C)240F méphisto .. 175F C205F super pac (pacman) .. C1105F 0150F 

album ubi 199F C255F d.a.m.s. ... 295F 0395F invitation .. 140F [1199F mercenary .. 115F O199F super ski 150F C195F 

algebre 4e 3e... 0165F C1220F dakar 4 x 4........ 195F ky.a. ...... 140F Ü199F micro scrabble .. . 0220F O265F superpaint . 250F 

anales de rome ...... 195F 0255F dame scanner. 140F [180F kentel 2 ... 685F mission delta ...... . 0130F D185F tai pan... 105F 0155F 

apprends mois écrire .… 199F datamat .. 390F l'aigle d'or. 100F O1150F missions en rafale .... C155F 0199F tascopy . 190F C1230F 

apprends moi lire ..... 0260F D base Il 790F l'ange de cristal ...... 145F [1199F monopoly ..+ 199F C1245F tasprint 230F 

astérix chez rahazade . 199F des chiffres et lettres . [1195F C1280F l'anneau de zengara .. O235F multiplan . 499F tasword (464 664). 360F 

autoform. à l'assem. .. C1195F C1295F dida. engli. orth. gram. 0255F la chose de grotemburg Ü190F music pro . 295F O350F tasword (464)........ 260F 

balad. outre rhin 6e/5e C1180F C1225F DNS 210F la cuisine française O215F nitroglycér. lucky luke 185F tasword-mail. (6128). 360F 

b. pays Big Ben 6e/5e CJ180F C1225F écrire sans faute O210F la mascotte luky luke . O175F ordidactic ........... 250F tetris 160F 

barbarian ........... 100F C[1145F enduro racer ......... 105F C1155F la solution ........... O790F out run ... 115F 0145F textomat . 390F 

bataille pour RFA. ... C1195F C1255F équation inéquation ..… C1220F les dieux de la mer... [1130F C1195F oxphar Me 250F thai boxing 150F 

big 4 . 0125F D160F #15 strike eagle ..... 0115F D165F fortunes du foot-ball .. [1195F CJ245F pegasus bridge (fr) ... 1195F O385F the eidolon .. 150F 

LT 4 ER ENe 140F [199F fighter pilot .......... 105F O150F meilleurs au monde ... [1125F O195F poñtel. 52e 1385F the eye ..... 180F 

blueberry et le spectre 199F  floopy (magazine) ... 41F 15F les passagers du vent . 290F play bac 230F they sold a million 1 .. C1105F C1150F 

bob morane chevalerie C1255F C1255F 00 scsi socoissst 0160 F O180F les ripoux ........... 120F Ü199F power play ... 120F O165F they sold a million 2... [1105F O145F 

bob morane jungle... [1255F O255F français cm .......... O180F C1220F trésors d'U.S. gold .... C1110F 01175F printer pack 2 ....... 145F O185F they sold a million 3 .. C1105F C1145F 

bob morane scien. fic.. [1255F C255F games set et match... [1145F C1190F les voleurs du temps .… O250F profession détective 260F translock 11 plus ..... 275F 

bobsleigh ........... 170F golden hits .......... O10SF'OISSE O0 css sut ease 155F Ü195F QUIM dos isainse 250F  transmat ............ 150F [1195F 

boulder dash const. kit C1125F C1170F gram. lang. franc. ..… 210F loto sportif 220F red Le.d. 115F O165F trivial poursuite ..... 325F 

bource 2000 ....... Ü450F grand prix 500 ...... 180F ma. base . 165F relief action 160F C)199F trivial poursuite junior C1225F C1240F 2 

bridge ........ O270F C1299F heartland ........... 100F 0155F Mach 31, ss 145F [199F road runner ... 105F O155F turlogh le rodeur ..... 260F C1260F s 

bubble ghost . 145F Ü190F hercule 11 ........... 395F mastercalc (6128) D300F robinson crusoé . 185F uchi mata ........... 115F D145F = 

budget familial... 160F C1199F ra. 2 + 3D fight + inf. C1160F C1199F masterfile (6128) ... 360F VOA er de os 120F O145F valeur plus 1.2 ...... 365F = 

talcumat ....:...,24 390F foot + tennis + 5e axe C1160F [1199F maths 3 (algb. 3e) .... C1170F 199F sac à dos .... 295F Ü295F vectoria 3 D......... 410F E 

California games ..... 120F O155F tony + aigle + empire C1160F C1195F maths 4 (algb. 4e) .... C)170F SAPIQNS es sers 140F [1180F  viewtext 135F Lei 

carte d'europe ....... 150F [220F budg. + lorig. + space C1160F C1199F maths 5 (algb. 5e) .... C1170F sémabank ........... 330F  zombi............... 130F [1190F Ë 
s É 

LIVRES É 
[102 pro./amastrad cpc ..135F débuter aveccpc6128 .. 99F cp/m + amstrad cpc,pcw 100F bible du programmeur cpc 249 F le livre del'amstrad ..... 120F routines de l'amstradcpc 149F = 
['amstrad explore ........ 108F clefs pour amstrad T1 ...140F Cgraphismes-sons ducpc 129F la découverte de l'amstrad 115F le livre lecteur disq.cpc ..149F logo sur cpc .......,.... 149F 
amstrad ouvre-toi ...... 99F clefs pour amstrad T2 ...155F je débute basicamstrad  96F basic bout des doigtscpc 149F letourdel'amstradcpc... 96F multiplan sur amstrad ...207F 


Ccäble magnétophone CPC 
digitaliseur PCW 
tablette grafpad PCW 
tablette grafpade PC 
joystick PRO 5000 * 


‘OMMENT COMMANDER :Cocher le(s) article(s) désiré(s) ou faites une liste sur feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F de 1000 F à 2000 F, 80 F pour achat supérieur à 2000 F) 


NOM 


ADRESSE 
Mode de paiement : 


ORDINATEUR : 


TÉL. 


PC1512 © 


6128 coul. 


CODE POSTAL 


chèque / [1] mandat / [1 contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 


C1 6128 mono. 


464 coul. [1464 mono. [18256 [] 8512 


VILLE 


0] 


oici un utilitaire de gestion de dis- 
ques qui possède une présenta- 
tion très soignée et qui rappelle 
le style Macintosh. Un panneau de contrôle 
vous permet de modifier la vitesse de ré- 


ponse des touches, la couleur de l'en- 
cre et du papier ainsi que la suppres- 
sion du bip. Les commandes sont 
accessibles par l'intermédiaire des 
icônes placées sur le côté droit de 
l'écran ou bien grâce à la barre du 
menu supérieure. Toutes les fonc- 
tions ne sont pas intégrées dans le 
programme principal. Prenons par 
exemple la copie de disques. Une fois 
l'option choisie, vous sortez du pro- 
gramme Max pour effectuer la copie 
puis vous êtes obligés de faire un 
reset pour retourner au programme 
principal : que de temps perdu ! 

Le directory de chaque disquette s'af- 
fiche à l'aide d'icônes dans une fenê- 
tre. Chaque fichier est représenté par 
un symbole : une pomme (ben 
voyons !} pour les fichiers binaires, 
un pot d'encre et un pinceau pour 
les images, un listing pour les pro- 
grammes BASIC. Max reconnaît en 
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BANC D'ESSAI 
UTICITAIRE 


VE 


fait les suffixes différents et parti- 
culièrement ceux employés par les 
logiciels AMS (Stop Press, AMX Art, 
3D Ziccon). L'option hard copy signa- 
lée par un petit dessin d'imprimante 
permet d'obtenir les informations sur 
un support papier. 


À noter également : un formateur 
proposant les options DATA ou 
SYSTEM avec une éventuelle vérifi- 
cation des données, un copieur de 
disquettes au format standard, un 
éditeur de secteur classique et un 
accélérateur de vitesse concernant 
le moteur du lecteur de disque. 


La gestion des fichiers permet de 
cocher des programmes au catalo- 
que, de déprotéger les fichiers BASIC 
{option ‘’P"). Bien sûr, on peut aussi 
renoncer et effacer des fichiers. La 
poubelle est un outil intéressant 
puisqu'elle vous autorise à “jeter” un 
fichier et même à récupérer ce der- 
nier en cas de regret. Mais attention, 
après un ‘empty trash” ou “poubelle 
vide”, il n'y a plus de recours possi- 
ble. 

Comme avec les “vrais” (GEM par 
exemple), on peut sauver les carac- 
téristiques du programme : vitesse 
de réponse des touches, couleurs. 
Cela évite d'avoir à entrer tous les 
paramètres lors d'une initialisation. 
Max porte un nom bien sympathique 
mais, malgré sa présentation très soi- 
gnée, ce n'est pas un programme 
intégré dans la mémoire de l'Ams- 
trad, il est donc un peu lourd à 
manier si vous désirez par exemple 
changer les noms de trois ou quatre 
fichiers. Pour vous procurer ce pro- 
gramme, la seule solution (pour l'ins- 
tant) consiste à écrire en Angleterre 
à : Advanced Memory Systems LTD 
- 166-170 Wilderspool Causeway - 
Warrington WA4 60A. 
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COURRIER 7 
DES LECTEURS 


S.0.S. P.A. C.P.C. 


Jean-Louis Guilbert, 62 St-Laurent- 
Blangy nous fait part de sa joie d’avoir 
pu résoudre des problèmes de liaison 
CPC/Minitel grâce à la réponse à un SOS 
qu’il avait lancé dans les petites annon- 
ces de votre revue préférée. 


N:: partageons la joie de ce 
lecteur et ne saurions trop 
inciter les autres lecteurs à l’imiter. 
Notamment pour les problèmes épi- 
neux d'imprimante (photocopie du 
mode d'emploi, paramétrage, etc.), 
ou d’autre matériel, ou encore pour 
certains programmes du commerce. Il 
est en effet bien rare qu’un autre lec- 
teur n’ait pas eu, à un mcement ou un 
autre, le même problème, et l’ait 
résolu. Et vous êtes mieux placés que 
nous pour savoir que nos lecteurs sont 
formidables (si, si !) et qu’il se feront 
un plaisir de vous communiquer leur 
expérience. 


CLUBS 


D: très nombreux lecteurs nous 
demandent l’adresse d’un 
club dans leur région. Malheureuse- 
ment, notre fichier des clubs d’infor- 
matique utilisant des Amstrad CPC 
n’est pas à jour. Aussi lançons-nous 
un appel à tous les clubs de France, 
de Navarre, de Belgique, de Suisse et 
des pays étrangers dans lesquels nous 
avons des lecteurs. Envoyez-nous vos 
coordonnées exactes. Si un change- 
ment d’adresse doit intervenir, 
signalez-le. Merci ! 


laHaïe ou Tan 3R BRUZ 
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5,6,7ET8 


Cyril de Coatpont, 7150 Le Chesnay se 
trouva bien ennuyé lorsqu'il constata (de 
le numéro 5 de CPC était épuisé, alors 
même qu’il voulait utiliser le programme 
de HARDCOPY de CPC n 19 qui ne 
peut fonctionner sans de précieuses RSX 


de CPC n° 5. 


C: lecteur n’est pas le seul à 
réclamer haut et fort une réé- 
dition des premiers numéros de la 
revue. La réédition des numéros 1 à 
4 est déjà disponible et nous conti- 
nuons dans le même esprit. Vous 
pourrez ainsi découvrir, entre autres 
choses, les premières initiations à l’as- 
sembleur, un traceur de graphiques, 
une gestion de discothèque, une table 
de références croisées, de nombreux 
jeux, et les très recherchés articles de 
Michel Archambault. 


CHAMPIONNAT 


Marc Himbut, 75002 Paris a un pro- 
blème avec la sauvegarde de ses don- 
nées dans l’utilisation du programme 
CHAMPIONNAT. 


L e problème vient des 6128, et 
il suffit de créer le fichier 1987 
soi-même. À la main, en quelque 
sorte. La syntaxe est simple et ne pose 
pas de problème. 

OPENOUT ‘‘1987”’:PRINT ‘‘ ”: 
CLOSEOUT 

Et le tour est joué. Profitez de la trève 
de Noël pour mettre de l’ordre dans 
les résultats. 


CAO 464 


Philippe Maurice, 33000 Bordeaux 
bb, possédant un CPC 464, de ne 
pouvoir utiliser le dons programme 
‘’Long Size’’ de CAO. 


N:: cher lecteur peut retrou- 
ver son sourire, il existe une 
version de CAO pour 464. Les lecteurs 
un peu curieux auront pu lire en encart 
dans le texte du programme une 
remarque qui donne tous les rensei- 
gnements nécessaires pour se procurer 
le super-programme de Jean-Pierre 
Petit. 


STRADAMUSE 


Cécile Mafye, 31000 Toulouse, aimerait 
utiliser STRADAMUSE, programme de 
composition musicale, mais ne parvient 
pas à obtenir les altérations 


P:: ‘‘diéser”” correctement, il 
suffit d’entrer dans le même 
mouvement la note et son signe d’al- 
tération. Ne tentez donc pas d’opérer 


au coup par coup, le programme 
accepterait la note seule. 
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PASCAL OÙ | LA LIBERTE DE 
FAIRE CE QUE L'ON VEUX 
COMME ON VEUT, OU ON VEUT 


Yves GERAULT 


M 6° PARTIE 


LES Re 
PROCEDURES |/ 
UTILISATEUR 


N 2°: avons bien progressé 
dans l’étude du PASCAL 


TURBO. Nous pouvons 
maintenant écrire des 
programmes conséquents qui 
tournent vraiment. La lecture de 
nos programmes fait cependant 
apparaître assez fréquemment 
les mêmes enchaînements D. 
d’instruct: mme s’il T. ; Avec la co des problèmes à résoudre les textes 

ains de ù es s'allongent et il est voir notre problème | 


PROGRAM proc_1 (input, output) ; 


] 


BLOC DECLARATIF 


| 
J 


TABLEAU 1 


GIN (* début du programme principal *) 
BLOC INSTRUCTION 1 : | 


BLOC INSTRUCTION 2 


BLOC INSTRUCTION 3 | 


END - (* fin du programme principal *) 


Découpage d’un programme 


Pascal en BLOCS SEQUENTIELS. 


L:. PROCEDURES SIMPLES 


Le tableau 1 nous montre un programme découpé en plu- 
sieurs blocs. Notre bloc instruction, encadré par ses ordres 
traditionnels <BEGIN> <END >, se trouve subdivisé en 
divers petits sous-blocs appelés <BLOC 1> <BLOC2> 
<BLOC 3>. Le tableau 2 montre ce même programme 
modifié par l’utilisation d’un nouveau BLOC DECLARA- 
TIF : le BLOC PROCEDURE. Nous avons remplacé le bloc 
1 par un identificateur <BLOC 1 > et nous avons prévenu 
le compilateur que cet identificateur < BLOC 1 > repré- 
sentait un bloc d'instruction dont le détail se trouve dans 
la partie déclarative. 

Voyons maintenant notre Lorie déclarative. Là non plus, 
il n’y a rien de compliqué. Nous avons tout simplement 
ouvert un nouveau bloc par le mot-clé < PROCEDURE > 
suivi de l’identificateur de notre procédure <BLOC 1> 
suivi de l’immuable point-virgule pour signaler la fin de 


… d'instruction que nous encadrons par le 
de bloc fin de bl IN> ot Et 


notre ligne PASCAL. Nous écrivons ne notre bloc 


L.. PROCEDURES FORWARD 


Il'est cependant des cas, très rares il est vrai, où il n’est 
pas possible de résoudre le problème de la déclaration 
préalable à son utilisation. BORLAND a prévu aussi ce 
cas. |! suffit de fournir au compilateur l'en-tête complet de 
la procédure et de le prévenir que le bloc instruction cor- 
respondant viendra plus tard (FORWARD en anglais). Le 
tableau 3 montre l’utilisation de ce type de déclaration. 
On pourrait admettre que le compilateur fait deux fois le 
même travail, en fait, il n’en est rien. Nous y reviendrons 
dans le cas de procédure plus sophistiquée. 


Üusarion DE PROCEDURE SIMPLE 


Le listing 1 vous donne une utilisation de ce type de pro- 
cédure. Il s’agit de faire disparaître ou de faire réappa- 
raître le curseur sur l'écran. Ceci est particulièrement inté- 
ressant lorsqu'on utilise intensément les GOTOXY pour 
afficher des valeurs à des endroits précis de l'écran, il est 
alors gênant de voir le curseur balayer sans cesse l'écran. 


PROGRAM proc_2 (input, output) ; 


BLOC DECLARATIF | 


TABLEAU 2 


PROCEDURE BLOC 1; 
BEGIN 


BLOC INSTRUCTION 1 | 


END ; 


PROCEDURE BLOC _2 ; 
BEGIN 


BLOC INSTRUCTION 2 5 


END ; 


PROCEDURE BLOC 3; 
BEGIN 


= 
BLOC INSTRUCTION 3 | 


END ; 


Mise en PROCEDURES des 


BLOCS SEQUENTIELS d’un programme Pascal. 


BEGIN (* début du programme principal *) F 
BLOC_1; 
BLOC _2; 
BLOC _3; 

END - (* fin du programme principal *) 


C _—— 


ARIABLES GLOBALES 
ET VARIABLES LOCALES 


Le problème majeur rencontré lorsque les programmes 
s'allongent est le risque d'utiliser un ontfesiqur pour 
deux choses différentes. Le problème devient assez com- 
plexe, voire inextricable, pour les gens qui utilisent cou- 
ramment des identificateurs peu explicites du genre 
a,b,c,ro,ter etc. Lorsqu'on utilise des sous-programmes le 
problème se complique de l'utilisation de ce sous- 
programme à divers points du programme dans des con- 
ditions pas toujours identiques. Les erreurs qui en décou- 
lent portent le nom D'EFFET DE BORD. 

PASCAL permet de s'affranchir d’une manière élégante 
de ce problème. C'est le programmeur qui décide si les 
variables utilisées dans une procédure s'appliquent à 
TOUT LE PROGRAMME ou si celles-ci sont STRICTE- 
MENT RESERVEES À LA PROCEDURE. Pour cela il fait 
la différence entre les variables GLOBALES et les varia- 
bles LOCALES à une procédure. Il fait de plus la diffé- 
rence entre les variables LOCALES de CHAQUE 
procédure. 


PROGRAM proc_3 (input, output) ; 


BLOC DECLARATIF | 


PROCEDURE speclal ; 
FORWARD ; 

(* on prévient que spécial sera *) 
(* détaillée plus loin s)) 


TABLEAU 3 


PROCEDURE proc a ; 
BEGIN 


spécial ; (* appel de spécial  *) 
(* sans l'instruction FORWARD*) 
(* il y aurait une erreur # 


END ; 


PROCEDURE proc_b ; 
BEGIN 


END ; 


PROCEDURE spécial ; 
(* ici on place le détail *) 
(* des instructions # 


BEGIN 


proc_b ; 
END : | 


BEGIN (* début du programme principal *) 


proc_b; 
spécial ; 
proc_a; 


7] Principe d'utilisation de l’ins- 
truction FORWARD. 


END. (* fin du programme principal *) 
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PROGRAM proc_4 (input, output) ; 
(* partie déclarative *) 
PROCEDURE essai ( valeur_1 : integer ; 
valeur_2 : char ); 
BEGIN 


TABLEAU 4 


(* bloc instruction *) 


END 5 
(* fin de essai *) 


PROCEDURE appelante ; 


VAR 


aune 


donnée _1 : Integer ; 
donnée _2 : char; 


Es 


BEGIN 


essai (donnée_1 , donnée_2) ; 


essai (123 , 'B'): 


ges de paramètres 


END ; x 
(* fin de la procédure appelante *) 


BEGIN (* programme principal *) 


RSS 5 a 
procédure. 


END. (* fin du programme *) 


ES VARIABLES LOCALES 
A UNE PROCEDURE 


Jusque là, nous parlions de variables qui sont représen- 
tées par un identificateur déclaré dans la partie déclara- 
tive du programme : CE SONT LES VARIABLES GLO- 
BALES. Elles sont créées lors de la compilation du pro- 
gramme et prennent leur place dans l'occupation de Fes 
pace mémoire de façon permanente durant la globalité 
du temps d'occupation de l'ordinateur par le programme 
les ayant créées. Elles peuvent être appelées de la tota- 
lité de programme, y compris des procédures si le pro- 
grammeur en décide ainsi. 


Par opposition à ces dernières, il est possible de créer des 
\otidbles locales à une procédure. Elles ne seront pas sto- 
ckées au même endroit dans l’ordinateur. Elles seront du 
type éphémère. ELLES N'EXISTERONT QUE LE TEMPS 
PÉNDANT LEQUEL LA PROCEDURE SERA ACTIVE. 
LORSQUE LE PROGRAMME QUITTERA LA PROCE- 
DURE PAR SON <END > ELLES SERONT DETRUITES. 
On en voit immédiatement les avantages : elles ne pren- 
nent pas de place en mémoire lorsqu'elles ne servent pas, 
de hs après leur utilisation, l’espace mémoire qu’elles 
ont temporairement occupé est restitué au système. 


L'endroit où sont stockées ces variables locales se nomme 
la PILE de calcul. Cette pile sert à beaucoup de choses, 
c'est la feuille de brouillon dont se sert le microprocesseur 
pour faire ses calculs temporaires et noter ce dont il doit 
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se souvenir quand, pour diverses raisons il lui est néces- 
saire d'interrompre un travail en cours pour en faire un 
autre plus urgent. Lorsqu'il a terminé cette urgence il con- 
sulte son agenda (sa pie) pour savoir où il en était et 
reprendre le travail où il l'avait laissé. 

Le nom de pile vient du fait qu’il met ses informations les 
unes sur les autres comme une pile d’assiettes. Bien sûr 
pour avoir accès à une information il doit au préalable 
dépiler celles qui sont dessus. La gestion de cette pile est 
effectuée par le compilateur et n’est pas, comme en assem- 
bleur, du ressort du programmeur. OUF 1!!! Mais que les 
puristes se rassurent, PASCAL leur permet aussi d'aller 
jouer avec la pile, à eux de ne pas être des APPRENTIS 
SORCIERS, sinon, il ne leur restera plus que le maniement 
du bouton marche/arrêt comme solution. 

Comment prévient-on le compilateur que l’on désire créer 
une variable locale ? De façon très logique. Il suffit d'in- 
tercaler entre la déclaration de procédure et le 
<BEGIN > qui indique le début du bloc d'instruction une 
partie déclarative en tout point semblable au bloc décla- 
ratif des variables globales. Le listing 2 donne un exem- 
ple d'utilisation de variables locales. Pour bien montrer 
que les variables locales et globales sont totalement dif- 
férentes, nous leur avons donné le mème identificateur. 
Comment le compilateur sait-il qu’il doit se servir de la 
variable locale forôt que de la variable globale ? ; par 
la définition de la priorité en cas de conflit. Lorsqu'il ren- 
contre le nom d’un identificateur, il cherche d’abord si 
celui-ci est local à la procédure, si oui c'est cette défini- 
tion qu'il prend, sinon il le considère comme global. 


ES PROCEDURES IMBRIQUEES 


Nous avons vu que la déclaration des variables locales 
se faisait dans la partie déclarative de cette procédure. 
Rien ne nous empêche dans la partie déclarative de la pro- 
cédure A de déclarer une procédure B qui elle-même aura 
dans sa partie déclarative une procédure locale C et ainsi 
de suite. Le problème posé devient : QUI EST LOCAL 
POUR QUI #2? 

PASCAL est un langage hiérarchisé. Il va donc repren- 
dre la même définition que pour le règlement du conflit 
du chapitre précédent. Lorsqu'il rencontre un identifica- 
teur inconnu lors de sa compilation, il cherche d'abord si 
celui-ci est local, si oui c'est cette définition qu'il retient, 
sinon, il remonte sa pile et cherche au niveau de la pro- 
cédure appelante et se repose la même question : l’iden- 
tificateur est-il local à cette procédure © Si oui, il accepte 
cette définition, sinon il remonte sa pile au niveau de la 
procédure appelante et ainsi de suite jusqu’à ce que sa 
référence soit vérifiée. || se peut ainsi qu'il remonte 
jusqu'aux variables globales. bu fait même du fonction- 
nement en pile des variables locales, il ne peut jamais, 
POUR PASCAL, y avoir de conflit. Pour le programmeur 
cela est moins évident. 

POUR EVITER TOUT PROBLEME, NOUS POUVONS 
PRENDRE COMME DEFINITION, DE NE JAMAIS 
MODIFIER DE VARIABLES GLOBALES DANS UNE 
PROCEDURE, SAUF CAS EXCEPTIONNEL, ET, APRES 
MURE.. REFLEXION.. 


ASSAGE DE PARAMETRE 
A LA PROCEDURE 


Nous avons reproché au BASIC d’avoir des sous- 
programmes qui n'étaient pas indépendants vis-à-vis du 
programme principal, Pascal fait-il mieux en la matière, 
et si oui, comment s’y prend-il ?. Pascal résout effective- 
ment ce problème à façon très élégante grâce à une 
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astuce de compilation liée à la manière dont il passe ses 
paramètres du programme appelant à la procédure 
appelée. 
ous allons essayer d'être particulièrement explicites pour 
cette explication car c'est là, la seule difficulté d’utilisa- 
tion des procédures en PASCAL. 
Supposons, comme le montre le tableau 4, que nous vou- 
lions passer à la procédure <ESSAI > % variables 
suivantes : 
<donnée 1 > qui est du type integer. 
< donnée 2> qui est du type char. 
Le programme appelant va contenir l'instruction : 
essai ouh 1,donnée 2) ; 
la procédure doit contenir l'en-tête : 
Procédure essai (valeur 1 : integer; valeur 2 : char); 
Nous voyons QU'IL N'Y À PAS CONCORDANCE 
ENTRE LES NOMS DES VARIABLES À TRANSMETTRE 
ET LES NOMS DES VARIABLES QUI SONT CENSEES 
LES ACCUEILLIR. Par contre il y a concordance de NOM- 
BRE de paramètres à transmettre et concordance de TYPE 
entre ce qui est transmis et ce qui reçoit. || y a donc con- 
cordance de forme. C'est pourquoi ces paramètres seront 
a sous le vocable : PARAMETRES FORMELS (de 
orme). 
Lors de la compilation, PASCAL saura à la lecture de l’en- 
tête de la procédure <essai> qu'il lui faut deux valeurs 
qui doivent être, dans l’ordre, un <integer> et un 
<char>. C'est cette vérification qu’il effectuera. Lors de 
l'exécution, il AFFECTERA à la variable locale valeur 1, 
qu créera dans sa pile de travail, la valeur contenue 
ans la variable donnée 1 et idem pour valeur 2 et don- 
née 2. Puis il effectuera les calculs de la procédure. 
Supposons que nous ayons mis les mêmes noms pour les 
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5 

: ns g 
! 

PROGRAM proc_5 (input, output) : © 
© 

(* partie déclarative *) 

[= 

PROCEDURE essai (valeur_1:integer ; 2 
valeur_2 : char - 8 


VAR retour : integer ) ; 


BEGIN 


Commun 
entre programme appelant et procédure. 


(* bloc instruction *) 


he 


END ; 
(* fin de essai *) 


PROCEDURE appelante ; Hi 
VAR 


réponse, donnée_1 :integer; 
donnée_2 :char; 


BEGIN 


essai (donnée_1, donnée _2, réponse) ; 


essai (123, 'B', réponse) ; 


END ; 
(* fin de la procédure appelante *) 


BEGIN (* programme principal *) 


END. (* fin du programme *) 


variables à transmettre et pour les variables de réception. 
Cela change-t-il quelque chose ? Si vous avez bien suivi 
ce qui précède, vous devez pouvoir répondre ‘NON 
sans aucune hésitation. 

Reprenons quand même pour ceux qui sont les moins 
aguerris au maniement des cases mémoires. Dans son 
espace programme le compilateur a créé deux emplace- 
ments à titre permanent de longueur 16 bits pour l’entier 
donnée 1 et de longueur 8 bits pour le caractère donnée 
2. Durant le déroulement du programme ces variables se 
sont vues affecter des valeurs numériques diverses. Lors 
de l’appel de la procédure, il a été créé dans la pile de 
travail doux emplacements mémoire de longueur 16 bits 
et 8 bits. Les mémoires réservées au programme et les 
mémoires réservées à la pile de travail du microproces- 
seur ne sont évidemment pas les mêmes. Le compilateur 
a demandé au microprocesseur de recopier dans les 
mémoires de la pile les valeurs qui étaient mémorisées 
dans l’espace utilisateur. Désormais, dans le cadre de la 
procédure il peut arriver beaucoup de choses diverses aux 
variables de la pile donnée 1 et donnée 2 ; cela ne pourra 
avoir aucune incidence sur le contenu des variables don- 
née 1 et donnée 2 de l’espace programme. 

Le tableau 3 donne aussi un autre type d'appel de cette 
même procédure. Îl est aussi correct puisqu'il est possible 
d’affecter la valeur 123 à la variable formelle valeur 1 
créée dans la pile de travail et de même pour ‘’B’’ pour 
la variable formelle valeur 2. 
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En passant nous avons résolu, sans le dire, un autre pro- 
blème : celui du passage de la valeur d’une variable glo- 
bale à une procédure dans laquelle se trouvait une varia- 
ble locale ayant le même idestihonteur. Ce problème, sans 
l'existence des paramètres formels, aurait été insoluble. 


Rrour DE VALEURS 
EN PROVENANCE DE LA PROCEDURE 


Nous avons énoncé comme principe que nous ne devions 
pas changer la valeur d’une variable globale dans une 
procédure sauf dans des cas très précis et après mure 
réflexion. Il doit, de ce fait, exister une autre manière plus 
académique de procéder. Elle passe, elle aussi, par les 
paramètres formels. Elle est un peu plus compliquée à com- 
prendre dans son fonctionnement interne mais aussi sim- 
[e d'utilisation. 

n exemple en est donné au tableau 5. Il reprend le même 
problème que précédemment en y ajoutant en plus la pos- 
sibilité d’un retour de valeur de la procédure appelée vers 
le programme appelant. 

Le programme appelant envoie à la procédure < ESSAI > 
les os : <donnée 1>, <donnée 2> et attend en 
retour la valeur <réponse >. L'instruction d'appel est 
donc : 
ESSAI (donnée 1, donnée 2, réponse); 
La procédure appelée recoit en entrée les paramètres for- 
jofs : < valeur 1 >,< valeur 2 > et doit renvoyer au pro- 
gramme appelant une valeur par l'intermédiaire du para- 
mètre formel <retour>. L'en-tête de la procédure essai 
est donc : 
Procédure ESSAI (valeur 1 : integer; valeur 2 :char; VAR 
retour : integer); 
Comme on peut le voir le grand changement c’est la pré- 
sence du mot <VAR> précédant le nom du paramètre 
formel. Ce petit changement va avoir de grandes consé- 
s Lane sur la valeur de <réponse >. Attention cepen- 
ant à ne pas utiliser ce petit mot à tort et à travers sinon 
gare aux erreurs. 

ar cette déclaration nous créons dans la pile de travail, 
un emplacement de 16 bits appelé < valeur 1 > pour le 
contenu de <donnée 1>, un emplacement de 8 bits 
appelé <valeur 2> pour le contenu de <donnée 2>, 
un rene de 16 bits appelé <retour> pour le con- 
tenu de <réponse > ET UN EMPLACEMENT DE 16 BITS 
OU NOUS ALLONS COMMUNIQUER A LA PROCE- 
DURE APPELEE, <essai> L'ADRESSE DE LA VARIA- 
BLE <réponse >. 

Lorsque la procédure aura terminé son travail, avant d’ef- 
facer ses variables locales et de retourner au programme 
appelant, elle affectera le contenu de la variable locale 
<retour > à l'adresse de <réponse > contenue dans sa 
pile. Elle modifiera ainsi la valeur contenue dans 
<réponse >. 

Nous avons bien changé une valeur à l’aide d’une pro- 
cédure mais on ne peut pas dire que cela soit fortuit. Nous 
avons délibérément décidé de la changer. 


PROCEDURE essai (donnée_1, donnée_2, donnée _3 : integer ; 
valeur_2, valeur_2, valeur _3 ON 


VAR retour_1, retour_2 À integer : 
VAR réponse_1, réponse_2 : Char) 


[7777] Syntaxe complète de l’instruc- 
tion PROCEDURE. 
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D rase GENERALE 
DE LA DECLARATION PROCEDURE 


Nous pouvons maintenant écrire la syntaxe générale de 
la déclaration procédure. Nous allons pour cela suppo- 
ser que nous avons les paramètres formels suivants : 
— donnée 1, donnée 2, donnée 3 qui sont des entiers ; 
— valeur 1, valeur 2, valeur 3 qui sont des caractères ; 
— retour 1, retour 2 qui sont des entiers à retourner au 
programme appelant ; 
— réponse 1, réponse 2 qui sont des caractères à retour- 
ner au programme appelant. 
Le tableau 6 donne la syntaxe de cette déclaration. Nous 
voyons que les paramètres formels de même type peu- 
vent être énumérés comme dans le bloc déclaratif des 
variables, que chaque déclaration de type est suivie d’un 
point-virgule de la même manière que dans la déclara- 
tion des variables. Mais il y a une très grande différence 
dans la déclaration des paramètres formels qui doivent 
effectuer un retour au programme appelant : CHAQUE 
LIGNE doit être précédée du mot-clel VAR, ce qui n’est 
as illogique mais qui est souvent source d'erreur. 
Par ailleurs, une fois de plus, rappelons qu'il y a une 
grande différence entre la ligne PASCAL et la ligne édi- 
teur et que nous pouvons nous arranger pour que la dis- 
position de notre texte source soit aussi Dares que 
possible. 


PROGRAM proc_7 (input, output) ; 

(* partie déclarative *) 
PROCEDURE essai ( Valeur_1 :integer  ; 
ro ed A valeur_2 : char 2 


VAR retour :integer j); 
FORWARD ; 


PROCEDURE appelante ; 
do tot ES NOR ST | o 


VAR 


réponse, donnée_1 : integer ; 
donnée_2 : Char ; 


BEGIN 
essai (donnée_1, donnée_2, réponse) ; 


re o 
(* fin de la procédure appelante *) 


PROCEDURE essai ; 


PTT LILLLI LL SSL LELELS EE 


(* l'en-tête est réduit 7 
(* à sa plus stricte expression  *) 


BEGIN 
ç bloc instruction de essai *) 


u : 
(* fin de la procédure essai *) 


BEGIN (* programme principal *) 


an 

= 
Le] 

TD 
[= 

a 
= 
Le] 

ur. 
= 
P 
= 
2 
RS 

£Q 

8 œ 

LE 
œ 

O 

LL. 

[= 

.Q 

ne 

[e] 

2 

nn 

= 


END. (* fin du programme *) 
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PROGRAM proc_8 (input, output) ; 


[EESTI NRA RAA ANR ANR ARNATA 


{début de la partie déclarative]} 

TYPE | 
tab_5_10_int = array [1..5,1..10] of integer : | 
VAR | 


tableau_1 :tab 5 10 int; 
{fin de la partie déclarative} 


PROCEDURE entête correcte 


LT OR PC ASE 
(valeur_1 : integer ; 
valeur _2 :tab_5 10_int ); 
{on peut jouer avec la disposition} 
{de la ligne pour faire plus joli} 


BEGIN 


END ; 
{fin de la procédure en-tête_correcte} 


PROCEDURE entête non correcte 


ts is PE Pie va 


(valeur_1 : integer ; 
valeur_2? : array [-1..2] of integer) ; 


BEGIN 


END ; 
{fin de la procédure entête_non_correcte} 


RD NN UE in 


BEGIN (* programme principal *) 


RS 


7] Problème de compatibilité entre 
les instructions PROCEDURE et ARRAY. 


END. (* fin du programme *) 


Quuaurs SUBTILITES DE DECLARATION 


Le tableau 8 vous donne le mode d'utilisation général de 
la déclaration <FORWARD >. Elle est en accord avec 
ce du a été dit au début de cet article : c’est lors de la 
déclaration de principe que l'en-tête doit figurer en entier 
afin que le compilateur puisse réserver dans sa pile le nom- 
bre oneloceunts correct et détecter les erreurs de com- 
patibilité des types. L'en-tête réel de la procédure, où sont 
détaillés les blocs d'instructions, quant à lui, n’est consti- 
tué que du nom de la procédure (pour mémoire). Le com- 
ilateur comme nous l’avions écrit ne fait donc pas deux 
ois le même travail. 
Le tableau 8 est plus subtil et nécessite une plus grande 
attention. La partie 8a est une déclaration d’en-tête de 
procédure correcte. la partie 8b est une déclaration d’en- 
tête incorrecte et produira un message d'erreur. La rai- 
son en est que, dans une déclaration de procédure, ne 
doivent figurer QUE DES TYPES CONNUS par le com- 
pilateur. Une déclaration < array [-1..2] of integer > n'est 
pas un type et conduit donc à l’édition d'un message d’er- 
reur. Pour plus de détail nous vous renvoyons à ce que 
nous avons écrit à ce sujet lors des déclarations de 
tableaux. 
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- Exemple d'utilisation de PROCE- 
DURES simples. 


program curseur 


mot : string [20]; 


procedure curseur_on; 


write (#3) 
end; 
{fin de curseur _on} 


procedure curseur off; 


begin 
write (#2) 
end; 
{fin de curseur _off3 


{###%% DEBUT DU PROGRAMME FRINCIPAL ###%7} 
begin 

clrscr; 

curseur _off;gotoxy (10,10) 

curseur _on ;gotoxy (10,15) 
end 


readln (mot) 
readln (mot) 


ST N G 2 


Illustration du problème du nom- 


mage des variables GLOBALES et LOCALES. 


program meme_nom (output); 


str20 = string [20]; 
nom_commun 


procedure bidouille; 


nom_commun 
begin 
nom_commun:= bidouille; 
writeln (‘on est dans bidouille ‘) 
writeln (nom_commun) ; 
end; 
{fin de procedure bidouille} 


{#*#x* debut du programme principal #*#%#2 
begin 
nom_commun:= ‘principal; 
writeln (‘on est dans principal ‘); 
writeln (nom_commun); 
bidouille; {on va bricoler dans bidouille 
writeln (‘on est dans principal ‘); 
KE Re (nom_commun) ; 
E 


on est dans principal 
D principal 
on est dans bidouille 


> bidouille 
FX TÉL on est dans principal 


DR LC QT principal 
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EN COULEUR PASS RMNINIPINEIE 


Le programme CATALOGUE de CPC n° 26 a fait 
bien des heureux. Mais le bonheur naît aussi de la 
couleur. Voici donc quelques lignes BASIC à insé- 
rer dans le chargeur du programme. 


22 POKE &a487,CP:POKE &a488,CP 
23 POKE &a48a,CB:POKE &a48b,CB 
24 POKE &a48e,CC:POKE &a48f,CC 


CP est la couleur du crayon, CB la couleur de bor- 
dure, CC la couleur du crayon. Nous devons ces 
feaues POKE utiles à Pascal BERGE de Meudon 
a Forêt. 


CARACTERES D'EXTENSION SE 


Un lecteur avait lancé un appel concernant l’utili. 
sation des caractères d'extension 141 à 159, voici 
la réponse de deux autres lecteurs : P. COUTILLARD 
de Paris et L. MAZELLIER de St-Paul 3 Châteaux. 
Tout d’abord, il faut savoir qu’une chaîne de carac- 
tères peut être affectée à chaque caractère d’exten- 
sion, 128 à 159, grâce à la commande : 


Ces caractères de contrôle peuvent être affectés à 
n'importe quelle touche du clavier ou du pavé numé- 
rique et même aux manettes. Les caractères de con- 
trôle portant les numéros 128 à 140 sont attribués 
au pavé numérique. Voyons le cas du 141 à travers 
l'affectation aux touches CTRL+‘’1/’ (le ‘’1’’ du cla- 
vier |!) de la fonction RUN. 

Dans un premier temps, nous définissons le carac- 
tère de contrôle par : 


KEY 141, ‘’RUN'’'+CHRS(13) 


Nous pouvons et devons maintenant affecter ce 
caractère de contrôle à la touche désirée : le ‘’1’’ 
du clavier dont nous voyons dans le tableau ‘’Numé- 
ros des touches’’ du manuel qu'il porte pour numéro 
64. Nous écrivons donc : 


KEY DEF 64,1,49,33,141 


Où 64 est le numéro de la touche utile, 1 signifie 
que la touche fonctionne à répétition, 49 le code 
ASCII du caractère ‘’1’” (voir table de codes ASCII) 
lorsque la touche est pressée seule, 33 le code ASCII 


KEY n°,'‘chaîne’’. 


EDGACOLOR PARAPENTE TROT RE PER RE PURE UD OUT SYRE TE 


Dans Trucs de CPC n° 29, nous vous mettions sur 
la piste du changement de couleur ‘’hard’’. Nous 
avons aujourd’hui le grand honneur, et le petit avan- 
tage, de vous présenter en première mondiale l’Ed- 


; 1 - Rouge 
s Entrée 
\ 2 - Vert 
6 \ 3 - Bleu 
/ 2 4 - Synchro 
LL D 5 - Masse 
k e 6 - Luminance 
à Las Rouge 
; Vers le 
G moniteur 
RS % Vert / 
[al 
G P 
. SR +) Bleu T 
[où] q b \ 
[ A ARS \ © \ 
NL \, © \ 
L2 “ 
6 \ | “© | 
= Et 
L /2 | 
e = 
NÉ Sortie 


Le dispositif génial et peu coûteux qui, au prix 
e quelques efforts, d’un minimum d’attention et de 
soin, transformera l’écran de votre CPC ou de votre 
téléviseur en arc-en-ciel. 

Voyons un peu comment cet appareil, rien moins que 


‘ révolutionnaire, fonctionne. Sachez d'abord que le 


rouge se mélange avec le vert et le bleu, tandis que 
le vert se mélange avec le rouge et le bleu, et que 
le bleu se mélange avec. le rouge et le vert. Vous 
suivez, c’est très bien, vous recevrez un bon point 
à la sortie du cours. Avec l’Edgacolor, par combi- 
naison de trois potentiomètres, vous obtiendrez avec 
votre CPC une gamme de dégradés inconnue de vos 
yeux jusqu'alors. Demandez-leur | 


Pour fabriquer cette petite merveille d'électronique 
et d’astuce, il va falloir faire votre marché ou fouil- 
ler les fonds de tiroirs. Procurez-vous : 

— 1 fiche vidéo DIN 6 points mâle ; 

— 1 fiche vidéo DIN 6 points femelle ; 

— du câble à 6 conducteurs ; 

— 3 potentiomètres de 200 Q (ohms) {limites 
200/230 O) ; 

— 3 grands boutons de potentiomètres (précision) ; 
— 1 Éottier à votre convenance. 


Il vous reste maintenant à suivre le schéma en ne 
vous trompant pas dans le câblage. Mais ça, c'est 
votre problème ! N'oubliez surtout pas de remer- 
cier Edgar YAPOUTZIAN de Marseille, génial 
inventeur de l’Edgacolor qui marque une ère nou- 
velle pour le CPC ! Pour Edgar, hip, hip, hip. 


3 + 5 
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du caractère obtenu par la pression simultanée de 
SHIFT et ‘’1’” ce caractère étant ‘’l’”’ et 141 le code 
de la chaîne de caractères que nous avons définie 
par KEY et qui est ‘’RUN’’+CHRS(13), nous l’ob- 
tiendrons par pression simultanée, non pas de 
SHIFT, mais de CTRL et du caractère ‘’1'’. 

Nous sommes maintenant à pied d'œuvre et cha- 
que fois que nous appuierons sur CTRL et ‘’1’’, nous 
obtiendrons l'effet d’un RUN suivi de ENTER. 
Exercez-vous en iestant ces commandes, si vous 
n'avez pas bien compris, c'est très bien, vous 
apprendrez mieux | 

En guise de dessert, mais il serait idiot d'entrer ces 
lignes sans les comprendre, quelques KEY, KEY DEF 
et SYMBOL qui faciliteront beaucoup la saisie de 
listes de programme. 


10 KEY 141,'’FOR ‘’:KEY DEF 64,1,49,33,141 

11 KEY 142,''NEXT ‘’:KEY DEF 57,1,51,35,142 

12 KEY 143,''GOSUB ‘’:KEY DEF 56,1,52,36,143 

13 KEY 144,/'GOTO ‘’:KEY DEF 49,1,53,37,144 

14 KEY 145,''ELSE ’’:KEY DEF 48,1,54,38,145 

15 KEY 146,''CHRS/('':KEY DEF 40,1,56,40,146 

16 KEY 147, ''LOCATE ’’:KEY DEF 25,1,45,61,147 

17 KEY 148,''1F ‘’:KEY DEF 29,1,58,42,148 

18 KEY 149,''THEN ’’:KEY DEF 28,1,59,43,149 

19 KEY 150,'’READ ‘’:KEY DEF 39,1,44,60,150 

20 KEY 151,''DATA ’’:KEY DEF 31,1,46,62,151 

22 SYMBOL AFTER 63 

23 SYMBOL 64,&60,8&30,8&78,&c,&7c,&cc,&76 

24 SYMBOL 92,0,0,&3c,&66,&60,&3e,8&8,&18 

25 SYMBOL 93,&lc,&32,&38, 
&éc,&38,&10,&90,&60 

26 SYMBOL 123,&6,&c,&3c,&66,&7e,&60,&3c 

27 SYMBOL 124,&30,&18,&66, 
&66,866,8&66,&3e 

28 SYMBOL 125,8&60,&30,&3c &66,&7e,&60,&3c 

29 SYMBOL 126,8&18,8&24,8&3c,&66,&7e,&60,&3c 

30 KEY DEF 10,1,55,65 

31 KEY DEF 11,1,56,66 

32 KEY DEF 3,1,57,67 

33 KEY DEF 20,1,52,68 

34 KEY DEF 12,1,53,69 

35 KEY DEF 4,1,54,70 

36 KEY DEF 6,1,44,38 

37 KEY 128,'’Veuillez agréer, M, l'expression ‘”’: 

KEY DEF 15,1,48,128 


Vous disposez maintenant de tout un jeu de touches 
de fonctions prédéfinies et de caractères accentués 
français pour imprimante. S'ils ne correspondent pas 
à votre imprimante, modifiez les codes en les rem- 
plaçant par ceux de votre manuel. 


S.0.5. : 


Un lecteur, utilisateur de dBASE Il 
et Multiplan, rencontre des problè- 
mes avec les fichiers d'aide de ces 
logiciels qu'il a placés, à cause de 
leur volume, sur une disquette sépa- 
rée. Quand il passe dt disquette 
de travail à celle d'aide, et récipro- , 
quement, le système se plante. Lui C 
indiquerez-vous la procédure à 
employer dans ce cas ? 
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U C E S 


a 
ÿ 

L | SOUS QUELLE 
TR ETOILE 
NCA  suIS-JE NE ? 


La disquette double-face 


MIROIR 
ASTRAL 


ÿ 
ÿ 
Z Avec une date, une heure et un lieu de naissance, 
ÿ 
ÿ 
2 


ININIVOIQWIOIOWVÙVY,$,Y$,°S 


“ 


votre CPC établira un portrait psychologique 
approfondi d'environ 15 pages sur imprimante ! 
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INQHEŒGEG,L,C,ELCXSSSE 


ASTRALES 


Un logiciel qui vous fera une étude prévisionnelle 
approfondie d'une période donnée ; 
(analyse basée sur les transits des planètes) 


380 F Pour cc 6128 


Ces deux programmes existent aussi en version MS/DO 


au PRIX de 420F. chacun 


BON DE COMMANDE 


A renvoyer à URANIE Software 


B.P. 84 - 83110 SANARY - Tél. 94 74 32 00 


TYPE D ORDINATEUR UTILISE: 
NOM LEE ootrostocsretce meta ne tie sstn sure raciste 


VINS. En RE La AR sta es 
L$ vous commande : 
1 logiciel "MIROIR ASTRAL" 
1 logiciel "PREVISIONS ASTRALES 
(port compris) 
ci-joint mon règlement par chèque bancaire 


mL CL LL) 


OOÇÇÇKNNKK ES EE ROQOOQOQOQÎQQQQRORRRRRRR 


INVYIIVYV,S,SS 
IINKNEOEoOYKK 


NS 


a N 


1250 1F ERR=25 THEN AA — À 
CS e INT CHR$ (7) ; CHRS (24) ; "FICHIER 
A 
2 


PROGRAMMEUR 


Votre programme est maintenant fin prêt, il ne vous reste plus qu'à envoyer 
votre œuvre à CPC. Mais n'oubliez pas : 
° d'envoyer les programmes sur un support magnétique (disquette ou cassette). 


e de joindre un mode d'emploi détaillé manuscrit ou dactylographié, la liste complète des variables peut 
également être utile. 

Quelques cas spéciaux : les jeux. Joignez les solutions ou bien des astuces pour ‘‘visiter’” l'intégralité 
du programme. 

— les programmes sources en assembleur seront publiés à condition de posséder un commentaire 
conséquent. 


e les listings sur papier ne sont pas obligatoires puisque les programmes sont de toute façon réimprimés. 


e le programme enregistré doit répondre à certaines caractéristiques. 
— la taille des commentaires mis en REM ne doit pas dépasser 35 caractères. 
— il faut éviter l'utilisation des codes de contrôles (CTRL X, CTRL I etc.) ceux-ci n'étant pas ‘‘digérés'’ 
par l'imprimante. 
— les listings en assembleur doivent être accompagnés des chargeurs BASIC adéquats. 
Enfin, essayez d'être original, nous croulons sous les Master-Mind, les Yam, les gestions de fichier, 
les lotos sportifs ou non. 
A bientôt dans CPC. 


PARTICIPEZ A CPC 


LE PROGRAMME 


Nom 


Catégorie Q Jeu Q Utilitaire Q Educatif 


Taille 


Age > Périphériques utilisés 


Joindre un relevé d'identité bancaire pour paiement | SUPPort à Cassette 1 Disquette 
de vos piges. ; | 
Compatibilité (testée) avec : 


Attestation sur l'honneur Q 464 Q 664 a 6128 Q PCW 8256 


Je soussigné — QPC1512 QU PCW 8512 


déclare être l'auteur du programme ci-joint et ne 
l'avoir jamais proposé à une autre revue. Signature 


LE. —— 


Remplissez soigneusement cé coupon et joignez-le à votre programme, sur cassette ou sur disquette. 
Envoyez le tout à CPC - La Haie de Pan - 35170 BRUZ 


Bueece GHosr 


ERE INFORMATIQUE 
Arcade 


Bien que cela ne soit pas 
précisé, l'action se passe 
vraisemblablement en 
Ecosse. Pourquoi? Tout 
simplement parce que, dans 
ce logiciel, sont présents 
deux éléments typiques de 
ce pays : un château et un 
fantôme... 

Pendant toute la durée du jeu, le 
petit fantôme (qui est fort sympa- 
thique) va poursuivre un seul et uni- 
que but : faire traverser à son âme 
toutes les salles du château. Facile, 
pensez-vous ! Pas tant que cela, 
car il faut savoir que l'âme du fan- 
tôme a l'aspect d'une bulle mais 
également sa fragilité ! Il va donc 
falloir souffler sur la bulle pour la 
faire avancer seulement en évitant 
tout contact avec les nombreux 
objets se trouvant dans chaque 
salle ! De plus, pour rendre les cho- 
ses encore plus difficiles, il y a cer- 
tains objets qui ne veulent que du 
mal à l'âme du fantôme : une bou- 
gie allumée ou un ventilateur en 
marche par exemple... Heureuse- 
ment, en soufflant au bon endroit 
il sera possible d'anéantir l'action 
néfaste de ces objets. 


C_Bndré ni Æ S Picq 


LOGICIELS 


Bubble Ghost vous promet, à notre 
avis, un bon moment de détente 
avec ce petit fantôme mignon 
comme tout qui devient tout rouge 
lorsqu'il souffle trop longtemps !.. 
Pour le diriger correctement, il vous 
faudra un peu d'entraînement, il 
vous faudra également une bonne 
dose de réflexes pour vous position- 
ner où il faut avant l'arrivée de la 
bulle pour que celle-ci n'éclate pas 
lamentablement !.. Graphisme 
attrayant et animation réussie. 


croer: 000200 


CT 72,112 goouos 
nee re: Mat 


Cuassiques N° 1 
ET 
CLASSIQUES N° 2 


TITUS 
Arcade 


Depuis que les jeux sur micro- 
ordinateurs ont commencé à exis- 
ter, nous avons pu constater une 
prolifération de jeux d'une part ainsi 
qu'une recherche de jeux de qua- 
lité de plus en plus élaborés d'au- 
tre part. Malgré tout, chacun est 
d'accord pour dire que l'on revient 
toujours avec plaisir aux logiciels 
dits classiques. C'est pourquoi les 
2 classiques de TitéW s'avèrent très 
intéressants pour tous ceux qui 
n'auraient pas encore ces jeux en 
leur possession. 


Le KES si Fe 


Dans le Classiques n° 1, vous 
avez à choisir entre les Envahis- 
seurs où vous devez faire face à 
une armée dévastatrice, Glouton 
qui n'est autre que le célèbre Pac- 
Man et Infernal Breakout, casse- 
briques dans lequel apparaît au 
bout d'un certain temps une 
deuxième batte fort encombrante. 
Quant au Classiques n° 2, vous 
vous retrouvez face à Penggo où 
vous devez aligner trois diamants, 
Arnold qui grandit au fur et à 
mesure qu'il se promène et, pour 
terminer en beauté, vous devenez 
as du volant (ou fou du volant, au 
choix) dans un infernal Grand Prix. 
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Han D'ISLANDE 
LORICIELS 


Aventure 


Un simple petit coup de baguette 
magique et vous vous retrouvez 
transporté en Norvège, en plein 
XVIIe siècle. L'énigme de l'aven- 
ture peut se résumer ainsi: vous 
êtes Ordener Guldenlew preux che- 
valier profondément amoureux 
d'une jeune fille se prénommant 
Ethel. Malheureusement pour vous, 
Ethel et son père Schumaker sont 


UBI SOFT 


Aventure 


prisonniers au château de Munc- 
kolm, faussement accusés de crime 
d'Etat. Prouver leur innocence tient 
à peu de chose : il suffit de fournir 
une simple cassette. Seulement, 
comme par hasard, cette fameuse 
cassette a été volée par le plus ter- 
rible bandit sanguinaire du pays, j'ai 
nommé Han d'Islande. 


Alors, il ne reste plus qu'une seule 
solution : vous lancer à la poursuite 
de Han par monts et par vaux (sans 
oublier les mines de la ville souter- 
raine) afin que le juste droit puisse 
triompher et que, dans l'ordre tout 
à fait logique des choses, vous 
puissiez épouser votre belle... 


Lorsque votre vaisseau tombe en panne et 
que vous vous sentez inexorablement attiré 
par cette planète dont vous ignoriez aupar 
ravant l'existence, vous etes loin d'imagi 
ner tout ce que vous allez devoir vivre !.… 


Si vous n'êtes pas très féru en lit- 
térature, sachez que Han d'Islande 
est un des premiers romans de Vic- 
tor Hugo. Sa lecture vous aidera, 
le cas échéant à résoudre l'énigme ; 
de plus, sachez que le logiciel est 
livré avec une cassette audio don- 
nant de nombreux extraits d'émis- 
sions de France-Culture sur Han 
d'Islande. Le logiciel en lui-même 


Bien entendu, le but de cette aven- 
ture qui commence, c'est de par- 
venir à réparer votre vaisseau. À 
cette fin, vous vous promenez libre- 
ment dans tous les ‘‘coins"’ de la 
planète en ramassant de ci, de là 
quelques objets qui se trouvent sur 
votre chemin. Seulement, au bout 
d'un moment, vous commencez à 
vous creuser la cervelle afin de 
trouver une utilisation à tous ces 
objets !.. Un conseil : laissez libre 
cours à votre imagination, faites 
preuve de beaucoup de sens d'ob- 
servation et vous aurez alors une 
petite chance d'arriver à la seconde 
phase de l'aventure. Par ailleurs, 
vous allez devoir passer par des 
séances de jeu d'arcade à chaque 
fois que vous êtes face à une stèle. 


dd’ Islande 


présente un graphisme soigné et un 
analyseur syntaxique (ou plutôt un 
reconnaisseur de mots) de bonne 
qualité ; un seul regret à exprimer : 
les écrans où il n'y a pas beaucoup 
de texte semblent un peu trop 
vides. Malgré tout, il faut saluer 
l'initiative d'une adaptation sur 
micro d'une œuvre d'auteur 
classique. 


PP 


La MARQUE 
JAUNE 
COBRA SOFT 


Arcade/Aventure 


La scène 1 de l'acte | se passe bien 
entendu au Centaur car il est 
impensable que Blake et Mortimer 
conversent au coin du feu ailleurs 


que dans ce club “bon chic, bon 
genre". Pour ceux qui ne connaî- 
traient pas ces deux illustres per- 
sonnages, en voici un portrait très 
rapide : Francis Blake est le blond 
à la fine moustache, membre du 
bureau M.1.5. de l'intelligence ser- 
vice et Philip Mortimer est l'écos- 
sais adepte du whisky, physicien 
d'avant-garde... 


Ils ont tous deux un sujet inépui- 
sable de discussions en la personne 
de Septimus ou la Marque Jaune. 
La Marque Jaune est, hélas, un 
génial inventeur ayant mis au point, 
entre autres, le télécéphaloscope 
permettant de diriger un cerveau à 
distance... Diabolique, non ? C'est 
au travers de cinq séquences dif- 
férentes que vous allez devoir faire 
échouer la Marque Jaune ainsi que 
sa créature “Olrik”’. C'est ainsi que 
vous devrez l'empêcher de s'échap- 
per des docks, puis le pourchasser 
dans Green Park avant de pénétrer 
dans les égouts; vous entrerez 
ensuite dans le laboratoire diaboli- 
que où vous devrez récupérer le 
Trésor de la Couronne avant de 
mettre définitivement Septimus 
hors d'état de nuire... 


La Marque Jaune est un logiciel 
très travaillé au plan graphique et 
tentant de s'approcher le plus pos- 
sible de la B.D. Une partie de 
l'écran sert à l'action proprement 
dite tandis que des décors et per- 
sonnages viennent s'incruster… 


Dans la série adaptation de B.D. 
la Marque Jaune représente une 
bonne performance méritant le 
détour. 


Les objets récupérés de cette façon 
vous seront aussi très utiles, je 
dirais même plus nécessaires à la 
continuité du jeu mais, là encore, 
vous devrez en deviner l'utilisation 
par vous-même... 


D'emblée, nous pouvons vous dire 
qu'avec E.X.I.T., vous avez droit à 
une nouvelle catégorie d'aventure 
qui présente, à notre avis, plusieurs 
avantages : VOUS POUVEZ VOUS pro- 
mener librement dans plusieurs 
lieux avant d'agir (vous n'êtes pas 
bloqué dès le premier écran) ; tou- 
tes les actions se font à l'aide 
d'une main (superbement animée) 
qui vous libère d'un analyseur 


syntaxique émoussant générale- 
ment vos nerfs ; les graphismes 
sont vraiment superbes (sans com- 
mentaire) ; et, pour terminer, cette 
aventure vous oblige à faire tout 


un cheminement devant vous rap- 
procher de l'état d'esprit des 
auteurs pour vous permettre de 
résoudre l'énigme. A voir 
absolument. 
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Terris 


MIRRORSOFT 
Arcade 


Si vous avez tendance à avoir un 
esprit carré, ce jeu, qui nous vient 
directement des plaines qui s'éten- 
dent au-delà de l'Oural, est pour 
vous. En effet, le principe de base 
est très simple : vous avez à l'écran 
une aire de jeu composée de dix 
lignes verticales ; des blocs de for- 


LOGICIELS 


mes différentes vont apparaître un 
à un en haut de l'écran. Il y a sept 
blocs différents facilement différen- 
ciables de par leur forme d'une part, 
et de par leur couleur d'autre part. 
Vous pouvez faire subir toutes les 
rotations possibles à chaque bloc 
afin d'obtenir la position la plus 
intéressante. Toutes ces manœu- 
vres sont à exécuter dans un seul 
but : former des lignes horizonta- 
les complètes ; dès qu'une ligne est 
formée, elle disparaît de l'écran et 
les formes se trouvant au-dessus 
descendent d'un étage (ou plus !). 
La performance à exécuter consiste 
à réussir à former le plus grand 
nombre de lignes possibles car dès 
que les blocs atteignent le haut de 
l'écran. c'est votre mort ! 


Ce logiciel présentant un concept 
original agit sur vous comme une 
drogue. Vous êtes tenté de réali- 
ser toujours un meilleur score et 
quand vous vous sentez à l'aise 


dans un niveau, Vous pouvez pas- 
ser au niveau supérieur. Un der- 
nier détail : quand vous obtenez un 
bon score, la vitesse s'accélère ! 


Buy 2 


LORICIELS 


Arcade 


Après le franc succès qu'avait 
connu Billy la banlieue il y a main- 
tenant à peu près 18 mois, il pa- 
raissait indéniable que nous ayons 
un jour une suite ! C'est aujourd'hui 
chose faite et dans Billy 2, toute 
l'angoisse de l'intrigue réside dans 
un coup de téléphone que Billy doit 
donner à Lily et ce avant minuit ! 
Car passé ce délai, ‘sa meuf s'fera 
la malle avec Ricky le Tétard...” 
(Cendrillon nouvelle version !] 


Billy 2 reste toujours fidèle à sa 
banane et c'est avec beaucoup de 
plaisir que vous pourrez le retrou- 
ver dans un cadre très coloré, sur 
un fond musical entraînant et avec 
une animation satisfaisante. 


AULWETE €f 


Seulement, les téléphones deman- 
dent tous un code ! Alors, il n’y 
a plus qu'à jouer et jouer encore 
aux jeux vidéos qui permettront de 
gagner des sous et donc de se 
refaire de l'énergie pour abattre les 
potes de Ricky que celui-ci a 
envoyé à la rencontre de Billy pour 
lui mettre aimablement des bâtons 
dans les roues. La chaude ambiance 
quoi | 


».. 


— 


e 
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BU RER SR; 5 A CC ERSE 
CREATION 
ET ANIMATION 


( S U | T E ) 


uite et fin du 


programme 
concernant 
l’animation des Michel 
sprites. Dès le mois MAIGROT 


prochain, nous allons 
mettre en application 
ces principes afin de 
concevoir un jeu 
d'arcade entièrement 
en assembleur. 


Bon courage : il reste Me 
encore de nombreuses DINZ NEXTCZ 
lignes à entrer. NEXTLZ 


AFFICH s (LSP) 3 C=LONG : B=HAUT 


, (VISAD) 
, BUFSPT 
INTERDIRE LES INTERRUPTIONS MASQUABLES 
BCLAFI € 3 (TESTS CLAVIER ET AUTRES) 
IGAGNE EN RAPIDITE D'EXECUTION 


URGENT !!! 


Région Bordelaise, gérance 
à céder. Conviendrait à per- 
sonne jeune, dynamique, 
intéressée par la vente de 
matériel  micro-informati- 
que. 


LASUIT 


,EXITAF 


» #COSO 
, DE 
:HL 


C.A. actuel : 200 000 F/ 
mois. 

Point de vente agréé AMS- 
TRAD, ATARI, COMMO- 
DORE. 

Pour tous renseignements : 
Tél. 56.91.15.81 


EXITAF BCLAFI 


3 
5 H*HHHHY AFFICHER LES LIGNES ECRAN STOCKEES #X#### 
; 
LD DE, (ADPROV) ; ADRESSE D'AFFICHAGE 
LD HL,LINES 3TABLE DES LIGNES STOCKEES 
LD BC, (LONGTA) 3; LONGUEUR D'UNE LIGNE 


3 
S#HHHX LIGNES BASSES ##### 


3; NOMBRE DE LIGNES 


CPC N° 32 - Mars 1988 89 


AFLINE 


#40 LIGNES HAUTES XX 4x 


INEHA LD A,(LSH) 
OR A 
JP Z,TESTCOL 
AFLINE 
LD B,A 
BCLINE PUSH DE 
PUSH BC 
LD B,0 
LDIR 
POP 
POP 


LD 
ADD 
LD 
JR 
PUSH 
LD HL,#COS0 
ADD HL,DE 
EX  DE,HL 
POP HL 
ü 
F1 DJINZ BCLINE 
3 
3H COLONNES GAUCHE XX 
3 
TESTCOL LD  A,(CS6) 
OR A 
JP Z,OUTI 


LD  HL,(VISAD) 
LD DE, (LONGTA) 
ADD HL,DE 
EX  DE,HL 
JR  COLON!I 


LD A,(CSD) 
OR A 
JP Z,EXIT 


3 #3 COLONNE DROITE #KK# 
3 
cp LD DE, (OLDADU) 
COLON1 LD HL,COLONS 
LD  C,A 
LD A, (HSR) 


UD B,A 
BCLCOL 


PUSH BC 

LD B,0 
PUSH DE 

LDIR 

POP 

POP 


LD 


LD 
JR 


LD HL,#CO50 
HL, DE 


; NOMBRE DE LIGNES 


3RECOPIEE POUR GAIN DE TEMPS 


3 CALCUL DE L'ADRESSE DE RESTIUTION 


3; RECOPIEE 


DE, HL 
HL 


BCLCOL 
A 3RAZ DES DEPLACMENTS 
LD (CSD) ,A 
LD (CSG) ,A 
LD (LSB) ,A 
LD (LSH) ,A 
EI 


RET 3EN FIN DE TABLE EN CAS DE DEPLACEMENT 


2660 
#34 TEST PIXELS PREMIER PLAN POUR COMPOZ ##X% 
2H 


STPG LD 
AND 
cP 
RET 
cP 
RET 
cP 
RET 
CP 
RET 
SCF 
RET 


LD 
AND 
CP 
RET 
cP 
RET 
CP 
RET 
cP 
RET 
ScF 
RET 


A, (DE) 
%10101010 
128 

z 

160 

z 

40 

z 

168 

z 


A, (DE) 
%*01010101 
64 
z 
80 


TESTER LES PIXELS GAUCHE DE LA TABLE 


3INK 1 COUVRE LE SPRITE 


5SI AUCUN INTERDIT : METTRE CARRY 


3LA MEME POUR LE PIXEL DROIT 


III 
#33 SAUVEGARDE ET RESTITUTION DES EMPLACEMENTS SPRITES #XX#x## 
REED EEE EEE EE EEE DEEE MEME DEEE EE EEE 


FFREC LD 
LD 
LD 
DI 
PUSH 
PUSH 
LD 
LDIR 
POP 
FOP 
LD 
ADD 
LD 


BC, (LSP) 
HL, TABLE 
DE, (VISAD) 


BC 
DE 
B,0 


DE 
BC 

A,D 

A,8 

D,A 
NC,F3 

HL 
HL,#COS50 
HL, DE 
DE, HL 

HL 

BCLRR 


LD BC, (LSP) 
LD DE,TABLE 
LD HL,(VISAD) 
PUSH 

PUSH 

LD 

LDIR 

POF 

POP 

CALL 

DJNZ 

RET 


3 SAUVEGARDE DU RECTANGLE ECRAN 


3 ME EEE EE EEE EEE TE 
3##3## CALCUL DE L’OCTET AU DESSUS ET EN DESSOUS D’UN OCTET ECRAN %x#Xx% 
5 IEEE IEEE EEE DEEE EEE MEME DE DEAD DEEE DEEE DE DD DE DEEE EE TEE 


3 
ADINF 


ATTEND 


LD 
ADD 
LD 
RET 
PUSH 
LD 
ADD 
POP 
RET 


LD 


LD 


PUSH BC 
LD B,245 

IN A,(C) 

RRA 

JR  NC,ATTEND 
POP BC 

RET 


3PASSER OCTET FORT DE L’ADRESE DANS A 
3HL = HL + &800 


3PAS DE CARRY PAS CHANGE DE GROUPE 
3SAUVER DE 
5NEGATIF DU DECALAGE + &800 


3 ADDITIONNER POUR PASSER AU GROUPE 
3 SUIVANT 


3 HL=HL-8800 


3SI CE BIT EST À O LE GROUPE CHANGE 


3 DECALAGE + &800 


3 ROUTINE SYSTEME HKBD19 RECOPIEE EN RAM 
3 POUR GAGNER EN RAPIDITE D'ACCES 


HEIN 
ONVERTIT UNE COORDONNEE PLOT EN ADRESSE ECRAN QUELQUE SOIT LE MODE EN COURS 
EAN 


CONVMO 


CONVMI 


CONVM2 


LD HL, (YPOS) 
LD DE, (XPOS) 
SRL H 

RR  L 

PUSH DE 

PUSH BC 

LD A,(TABLSP) 
cP 1 

JR  C,CONVMO 
JR  Z,CONVMI 
JR  CONVM2Z 
SRL 

RR 

SRL 

RR 

CALL 


3 COORDONNEES PLOT BASIC 


3DIVISER HL PAR 2 


3 PRESERVER LES REGISTRES QUI PEUVENT 
3 SERVIR 
3MODE ECRAN EN COURS 


3S1 CARRY MODE < 1 

3SI O MODE = 1 

5 SINON MODE = 2 

3MODE O : DIVISER REGISTRE DE PAR 2 
32 FOIS DE SUITE POUR DE = DE / 4 
3MODE 1 DE = DE/2 


3MODE 2 DE INCHANGE 


3 RENE 
LD  A,C 
LD (MASK) , A 

3 MH 
LD (VISAD) ,HL 
POP BC 
POP DE 
RET 


3 RANGER L'’ADRESE ECRAN 
RECUPERER REGISTRES ET RETOUR 


3 HIHI INA INT 
3#334 VA CHERCHER ET RANGE LES PARAMTRES DU DESSIN NUMSP XK#% 
3 KHAN 


FINDSP LD A, (NUMSP) 

LD B,A 

LD IY,LASTAD 

INCREM INC  IY 

INC 1IY 

DJINZ INCREM 

LD  L,(IY+0) 

LD H,(IY+1) 
3 
3 REED 
3#HHHH# PASSER LES PARAMETRES #X#X#3## 
à HD) 
3 
PARAM 

INC HL 

INC HL 

INC HL 

LD B,(HL) 

INC HL 

LD C,(HL) 

3 KDE LMP 10 

INC C 
3 HE 

LD (LSP) ,BC 

LD  A,C 

LD (LONGTA) ,A 

INC HL 

LD (ADSP) ,HL 


PUSH BC 
PUSH BC 
LD B,0 
DEC c 
LD HL,(VISAD) 
ADD HL,BC 
POP BC 
DEC B 
CALL ADINF 
DIJINZ COIN 
LD (COINBD) ,HL 
POP BC 
LD  HL,0 
LD  D,0 
LD E,C 
HL, DE 
BCLT 
(LTABL) ,HL 
DE, TABLE 
HL, DE 
HL 
CFINTAB) ,HL 


Text:114835 
Hmem: 34500 


End:31187 


3A DANS B POUR DJINZ 


3 PREMIER OCTET DE LA TABLE D'’'ADRESSES 


3; ADRESSE SUIVANTE 


$1Y = L'ADRESSE QUI CONTIENT L'’ADRESSE 
3 DESIREE 


3PASSER OCTETI 

3PASSER OCTET2 

5 PASSER OCTETS 

3HL POINTE SUR LA HAUTEUR DU SPRITE 
5PUIS SUR LA LONGUEUR 


35L'USAGE DU REGISTRE DOUBLE BC PERMET 


UNE CASE DE PLUS POUR CAS IMPAIR 

5LE CHARGEMENT SIMULTANE DE LSPF & HSP 
3 POINTER SUR 1ER OCT.DESSIN 

31ER OCTET DES DONNEES FIXELS SFRITE 
5 CALCULER LE COIN INFERIEUR DROIT 


5 DU SPRITE EN COURS 


3HL = ADRESSE COLONNE DROITE DU SFRITE 
3 RECUPERER NOMBRE DE LIGNES DANS B 


3 CALCULER LONGUEUR INITIALE DE LA TABLE 


19702 Bytes 


&6 


8861 SIN - ZE N DdI 


- COPYRIGHT 1985 MICRO-APPLICATION. 


. DAMS. 


5 RERO RERO RIDE RER DEEE DEEE DEEE DEEE DEEE DEEE EEE EEE DEEE EEE OO OO EX 
5* MODIFICATION À APPORTER A MSPUNMO POUR FONCTIONNER EN MODE 1 STEP 2 PIXELS + 
DRE DEEE REED DEEE DE DEEE DEEE DD DEEE DEEE DEEE EEE EEE EEE DEEE EEE EE DEEE 


; 
5 EEE EEE DEEE DEEE MEET EE EEE LMPO2Z 


LD 


RRC 
RRC 


LD 


AND 


JR 


JR 
STOPD 
LD 
OR 
JR 
LD 
RLC 
RLC 
LD 


A, (MASK) 
A 

A 
(MASK) , A 
%00110011 
NZ, NIBD 


RER HDI DE IE HIDE HE DE DE DE DEEE DEEE JDE DE D JDE DE JE JE 


RER IE DE IDD DEEE DE JDE DE DE DE JDE DEEE DE DEEE 


OKD 


A,C 
A 

NZ, OKD 
A, (MASK) 
A 

A 
(MASK) , A 


5SI PROCHAINE POSITION D'ORDRE 


IMPO3 


SI AUCUN DEPLACEMENT POSSIBLE 


5 ANNULER ROTATION DU MASQUE 


3SINON LE SPRITE S’'AGITE BETEMENT 


EN BORDURE D'ECRAN 


REINE IMPOB 
268% BUFFER IMPAIR #### 


BUFIMP 
PUSH BC 
LD B,C 
Ub:". :C;6 
BCLBUF LD A, CHL) 


ÿ ROTATION DES PIXELS DU BUFFER 
iLES 2 PIXELS GAUCHE PASSENT A DROITE 
DE LA CASE MEMOIRE 
LES 2 PIXELS DROIT PASSENT À GAUCHE 
PUSH AF DE LA CASE MEMOIRE SUPERIEURE 
AND %11001100 LA REMISE A ZERO DE L'ANCIEN BUFFER 
RRCA EST EFFECTUEE SIMULTANEMENT 
RRCA 
OR (a 
LD (DE) ,A 
SUITBU INC DE 
POP AF 
AND %O00110011 
RLCA 
RLCA 
LD (DE) ,A 
LD c,A 
INC HL 
DJINZ BCLBUF 
INC DE 
POP BC 
DJINZ BUFIMP 


RO EE EE ER EEE EEE EEE EEE EEE EE EE EEE EEE 
#XXX*X COMPOSER LE RECTANGLE A AFFICHER ##### 
RER RONDE DEEE EEE EEE EEE EEE EEE EX 


COMFC 


RET 
1 ED 
3 
; 
1 ONE IMPO4 
LD A,(MASK) 
RLCA 
RLCA 
LD (MASK) , A 
AND %11001100 


JR NZ,N1IBG 
REED EE 


REDON IMPOS 
JR  OKG 
SToPG 
LD  A,C 
OR A 
JR  NZ,OKG 
LD A, (MASK) 


LD iMASK) ,A 
RET 
MMM MEME TEE 
3 
; 
3 HIHI IMPOS 
DEC C 
LD A, {MASK) 
AND %O00110011 
JR NZ, BUFIMP 
BAIE 
; 


RETROUVER LONGUEUR REELLE LIGNE SPRITE 


TESTER 2 BITS GAUCHE DU MASQUE 


EC, (LSP) 
IX, TABLE 
HL,BUFSPT 
D,%10001000 
campL! A, (FLAGAF) 
1 
Z,comPo1 
NC, COMPO2 


NEYTLI BC 

B,C 
NEYTCA 
E,4 
A, CHL) 
c,A 
] 
NZ, NOTPIX 
A,(IX+0Q) 


NEXTPI 


NOTPIX 


NZ,NEXTPI 


IX 
HL 
NEXTCA 
BC 
NEXTLI 
AFFICH 


ComMPai 
NEXTL1 


5 RECTANGLE FOND ECRAN 
5: SPRITE 


5 ARRIERE PLAN 
5 SELECTION COULEURS PP-AP 


5; COMPOSER POUR AFFICHAGE PREMIER PLAN 


5 GAUCHE.SI <> O RIEN CHANGER 
5 SINON REMPLACER AVEC PIXEL 


5DE LA TABLE 


3D PREND SUCCESSIVEMENT LA VALEUR DES 
34 MASQUES A APPLIQUER 
10001000 01000100 00100010 00010001 


; COMPOSER POUR AFFICHAGE ARRIERE PLAN 


8861 SIN - TE oN Dd9 


£6 


NEXTCI1 CALL NZ, TSTPMG 


LD A, (I1X+0) JR C,PMDOK 
5 0R A ##X#XXHX ACTIVER CES DEUX LIGNES POUR CONSTATER LA DIFFERENCE DE VITESSE LD A, (HL) 


JR Z,FINCO1 ####% QUAND LE SPRITE NE PASSE PAS DERRIERE UN OBJET AND 
LD E,4 
NEXTP1 PUSH AF 
AND D 
JR Z,NOTPI1 
LD c,A 


%11011191 
LD c,A 

LD A, (DE) 
AND %90100010 
OR c 

CHL) ,A 


A, CHL) 
*%00010001 
3 INVERSER D (10001000 DEVIENT O1110111) NZ, TSTPD 


C,PDOK 

3 SINON REMPLACER PAR PIXELS GAUCHE ECR. A, CHL) 
%11101110 
C,A 
A, (DE) 
*x00010001 
c 


CHL) ,A 
3RESTAURER D A VALEUR D'ORIGINE 


HL 
NOTPI1 POP DE 
Dee NEXTC2 
DEC Be 
IR NZ,NEXTPI NEXTL2 


FINCOI INC HL 
INC IX ] L A, (DE) TESTER LES PIXELS GAUŸHE DE LA TABLE 
DJNZ NEXTCI 10001000 
POP BC 8 ÿINK 1 COUVRE LE SPRITE 
DJINZ NEXTLI z 
JP AFFICH 136 

; F< 

comPo2 AUCUN INTERDIT : METTRE CARRY 
PUSH 1X 
POP DE IX DANS DE 

NEXTL2 PUSH BC ; COMPOSER POUR AFFICHAGE PREMIER PLAN A, (DE) 

LD B,C %01000100 

NEXTC2 
LD A, (HL) 
AND %10001000 SI PIXELS BUFFER <> O , TESTER SI 
CALL NZ, TSTPG 3PIXELS ECRAN INTERDITS 
JR C, PGOK 3SI PIX.BUF.<)0 & PIX.G.ECR. AUTORISE 
LD A, (HL) 
AND %O1110111 ELIMINER PIXEL GAUCHE 3 
LD c,a TSTPMD £ A, (DE) 
LD A, (DE) 00100010 
AND %10001000 ET REMPLACER PAR PIXEL TABLE 2 
OR C Z 
LD (HL) ,A 3 

z 


LD A, CHL) 

AND %01000100 

CALL NZ, TSTPMD 

JR C, PMGOK A, (DE) LA MEME POUR LE PIXEL DROIT 
LD A, CHL) %00110011 
AND %10111011 

LD c,A 

LD A, (DE) 

AND %O1000100 

OR c 

LD (HL) ,A 


LD A, (HL) 

AND %O00100010 
Text:11485 End:15121 3636 Bytes 
Hmem: 34500 


REVUES POUR LES PASSIONNES 


CPC -— REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez chez vous 
votre revue. Vous bénéficierez de réductions sur certains produits et vous recevrez gratuitement un 
numéro spécial de MICRO Flash tous les deux mois, dédié à Amstrad. 


AMSTAR : en avant-première, toutes les nouveautés sur AMSTRAD - des programmes, des ar- 
icles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 


PCompatibles Magazine : la référence en matière d'initiation et de perfectionnement sur les "com- 
patibles PC". 


ARCADES : à peine sortis, des dizaines de jeux passés au peigne fin. Des interviews d'auteurs 
des rencontres avec les éditeurs : le mensuel des fans de jeux sur toutes machines. 
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INFORMATIQUE 


ET COMMUNICATION 
SUR LE 36.15, CODE MHZ 


Notre serveur vous offre 24 heures sur 24 la possibilité d'en savoir plus, 
de nous contacter, ou de poser des questions aux autres lecteurs !' 
De nouvelles options sont disponibles ! Un jeu questions-réponses et une possibilité 
faite aux revendeurs français de vous informer directement. 


TOUTES NOS REVUES 


Savoir comment nous joindre, le sommaire des 
revues du mois en cours et les infos ! 


BOITE A LETTRE A DEUX VITESSES 


Vous souhaitez poser une question directement 
et personnelement aux rédacteurs où à un servi- 
ce : vous pouvez le faire par les BAL. Vous avez 
une question à poser et vous souhaitez que 
d'autres lecteurs, en plus de nous, y répondent. 
C'est encore possible ! 

Mais attention, n'oubliez pas de vous ouvrir une 
BAL en même temps |! 


LES PETITES ANNONCES 


Vendre vite, acheter vite 24 heures sur 24 et 7 jours 
sur 7 | Accessibles par tous. Vous pouvez passez 
votre annonce directement, elle sera validée dans 
la journée ! 


Une rubrique Dialogue ést à votre disposition. Vous 
pouvez vous y donner rendez-vous 24 heures sur 
24,. 


REVENDEURS NOUVEAUX 


Les revendeurs français peuvent gratuitement 
ouvrir une page minitel pour présenter leurs pro- 
duits, leurs promotions ! 

UNIQUE ! 


SI ON JOUAIT ? 


Vous pouvez gagner, comme sur nos revues, cha- 
que jour un cadeau et le meilleur du mois, un 


voyage ! 
HOROSCOPE 


Et depuis 1988, votre horoscope ! 


VOUS AUSSI, REJOIGNEZ UNE EQUIPE QUI GAGNE ! 


Au téléphone, 15 minutes coûtent en moyenne 55 francs. 
Par minitel, il vous en coûte pour le même temps 15 francs. 
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SORACOM et de l'auteur concerné. Les opinions expri- 
mées n'engagent que la responsabilité de leurs auteurs. 
Les différents montages présentés ne peuvent être 
réalisés que dans un but privé ou scientifique mais non 
commercial. Ces réserves s'appliquent également aux 
logiciels publiés dans la revue. 
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Vous avez perdu doc. ou notices. Je vous les pro- 
cure (photocopies). Coût modique. Rens. Tél. 
31.74.57.16 demander Ludovic. 


Vends CPC 664 couleur + disks + joystick + 30 
utilit. + 20 jeux + traitement de texte 3300 F. Tél. 
69.49.32.09. 


Cause 5’’1/4 vends 100 disks pleins à craquer |! 
50 F l’un. Lionel Briffaz 9 rue E. Quinet 01100 
Oyonnax, tél. 74.73.76.06 après 19h. 


Vends ZX81 + livres + 5 K7 de jeux : 250F. 
Memopak 64 K : 350 F Tél. 82.84.34.17 deman- 
der Laurent. 


Vends Meurtre à grande vitesse, K7, 70 F - Fair- 
light disk 60 F ou échange contre disquettes vier 
ges. Tél. 82.84.34.17. 


Vends Vectrex (état neuf) + 4 cassettes 700 F. 
M. Drevot, tél. 76.25.69.56. 


Vends 6128 coul. + manette + 40 disks avec 
jeux, utilit., copieur + câble K7, Hi-Fi + rallonge 
+ nbx livres et revues : 3900 F. Tél. 39.59.60.88 


Logiciels ésotériques : horoscopes tibétains ou ara- 
bes 65 F l’un ou les 2 pour 110 F (envoi gratuit). 
Estergar, Douloin 58140 Lormes. 


Maths, algèbre, pro : équations, polynôme etc 
Prog. in édit très soigné BASIC et Turbo. R. Cabane 
43.38.62.71 soir après 21h. 


Vends CPC 464 monochrome encore sous garan- 
tie. Nbx jeux, prix 1800 F. Tél. 40.58.75.15. 


Achète imprimante MCP 40 pour 6128, 500 F ou 
échange contre Hit Pack 1 et 2 + 6 super Hit + 
200 F + livre MA 7. Tél. 39.91.81.82 après 18h. 
Vends lecteurs de disquettes 5'’1/4 neufs pour 
Amstrad double face. Prix 1600 F (360Ko) et 
1800 F (720Ko). Tél. 42.08.11.28. 

Echange disk simulation Silent Service original con- 


tre tout autre - Idées programmation BASIC CPC. 
Contacter Pascal 40.09.08.05. 


Vous avez Egg de créer 
ou vous dirigez 


VOTRE BOUTIQUE 


INFORMATIQUE... 


METTEZ TOUTES 
LES CHANCES 


DE VOTRE COTE ! 
REJOIGNEZ LA FRANCHISE DEIA 
ET DEVENEZ DISTRIBUTEUR 


POINT MICRO 


POUR MOINS DE 20000 F !!! 
Distributeur agréé AMSTRAD, 
COMMODORE, ATARI, ORIC et 
COMPATIBLES PC. 
RENSEIGNEZ-VOUS VITE AU 
96.91.15.81 


Fu TL PR. ES 


ANNONCES 


Ech. utilitaire Echo Soft, discology, TMS, Art Stu- 
dio. contre périphériques ou utilitaires. Tél. 
67.27.75.43 après 18h. 


Vends CBS + 9 jeux, le tout en t.b.e., boîte d'ori- 
gine, 1500 F. Tél. 39.80.48.76 (Philippe) région 
parisienne. 


Affaire ! cause double emploi vends Okimate 20 
sous garantie, très bon état, 1700F. Tél. 
47.06.55.69 


Vends 464 coul. + DDI 1 + 47 disk + 20 K7 + 
DM 2000 + SSA 1 + doc + meuble 6500 F. Tho- 
mas L. 5 av. de Lattre de Tassigny 57210 Maiziè- 
res les Metz. 


Vends Amstrad 8512 + Mplan + Dbase + échec 
+ planit. + hous + 6 livres + Bte rngement + 
10 disq. Neuf 9200 F - 6000 F - Tél. 43.98.03.30 
après 20h 


Vends CPC 464 mono + lecteur DDI 1, état neuf 
3000 F - 250 Softs disponibles. Demander liste au 
40.54.91.46 banlieue nantaise. 


Vends imprimante Centronics GLP état neuf + 
câble Amstrad 1200 F. Bimet 80 rue de la Jarry 
94300 Vincennes tél. 43.28.88.18 après 18h. 


Vends CPC 464 mono + lecteur disk DD 1 + 
Imprim. Citizen 120D + joystick + 25 disk rem- 
plis de jeux + bouquins 6500 F. Tél. 30.91.42.41 


Vends programme pour 6128 vous donnant 64 K 
de plus de buffer pour imprim. Envoyer chèque de 
85 F. Tél. 42.20.55.71 


Cherche contact Pascal, utilitaire, CPM + et 2.2. 
Court Grégory 75 avenue de la Gare 07380 Lale- 
vade d'Ardèche. 


Vends synthétiseur vocal (disc) état neuf + Miami 
Vice + Winter Games + programme, synthétiseur 
400F tot. (démo). Tél. 78.34.53.97 le soir. 


Vends CPC 464 + DD1 + interface + 100 jeux 
sur K7 et disquettes + 40 utilitaires (Discology) le 
tout ou séparément, t.b.e tél. 97.66.72.33 


Rentabilisez votre 6128 (*) 
& PCW 8256/8512 


Programmes en accès Direct 


Gestion de fichiers, + de 900 fiches 
de 186 car. répartis en 10 rubriques 
rech. multicritères. Mailing, 120 F 
Gestion comptes bancaires + de 
8000 écritures, nb cptillimité 180 F 
Gestion de bibliothèque + de 1500 
titres de livres ou revues 180 F 
Compilation des trois programmes 
pour CPC 6128 uniquement... 320 F 


Envoyez votre commande 
et règlement 
(Prix port compris) 
à 


M. Roger Desfournaux 
31, rue du Couvent 
84300 CAVAILLON 

Tél. 90.76.13.49 


Rens. + catalogue contre 2 timbres 
(‘avec licence Mallard. CPC N° 17 p. 60 
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La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘‘’généreux dona- 
teurs’’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘’d’origine’”, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


A vendre CPC 6128 coul. s/gar. + 30 disk et jeux 
+ multiface + souris + synthé vocal + 50 revues 
+ 5 livres. Val 8700 ou séparés. Tél. 39.50.57.20 
le soir. 


Possesseur 6128 couleur cherche contacts sympa, 
Lyon, autres. Jean-Paul Grange, 9 rue St Gervais 
69008 Lyon. 


Cherche contacts Amstrad ou club Amstrad sur 
Toulouse. Possède 664. Tél. 61.58.32.46. 


Vends 6128 sous garantie cse PC512 dans embal. 
d'origine 3500 F - couleur - Tél. 34.16.68.47 Jean- 
Pierre (16-1) après 19h. 


Vends Amstrad CPC 464 + moniteur couleur + 
joystick. Prix à débattre. Tél. 48.54.70.98 à partir 
de 20h. 


Vends CPC 464 + 100 jeux très bon état + plus 
de 50 livres ou magazines écran couleur 2450 F. 
Tél à François 55.56.08.35. 


Vends jeux Passagers du Vent, état neuf + maga- 
zine CPC 13. Tél. 89.80.03.51 entre 18h et 
20 h 30. 


Vends nbx logiciels Amstrad, listes sur demande. 
Rép. assurée. Charrier Patrice, Bussières et Pruns 
63260 Aigueperse. 


Débutant CPC cherche contacts vers Douai 
(59500). Tél. 27.97.24.10 entre 18h et 20h. 
Demander Eric. 


Vends CPC 464 couleur + 6 logiciels + joystick 
+ crayon optique + livre de programmes + 
revues, 2800 F. Tél. 65.29.84.01. 


Achète meilleur prix revue CPC n° 1. Tél. 
31.95.69.07. 


Vends CPC 6128 couleur état neuf sous garantie 
+ disquettes dont logiciels + joystick + livres. Tél. 
96.22.81.79 (C.d.N). 


Vends CPC 464 couleur + extension 512K + 
DMP 2000 + lecteur disquette + livres et plus de 
100 logiciels, 5500 F. Tél. 43.05.50.47. 


Vends CPC 6128 mono (oct. 86) + jeux + livres 
de programmes + 8 disquettes vierges + revues 
le tout 2800 F. Tél. (1) 46.64.47.89 après 19h. 


Urgent ! Vends CPC 464 mono + adaptateur péri 
tel + joys. + manuel + revues imformatiques + 
10 logiciels, 3000 F. Tél. 83.57.36.61 après 19h. 


Vends livres MA, Sybex, PSI Amstrad, t.b.e. + 
logiciels originaux 1/2 prix. Vends 2 joysticks + 
doubleur. t.b.e. 180 F. Tél. 30.71.40.78. 


Vends jeux en K7 Harrier Attack, Rally 2, Cobra, 
Pinball etc. Tél. 45.56.44.10 demander M. 
Willems. 


Vends imp. CMP1 t.b.e. + 3 rubans neufs + copie 
d'écran 1000 F. Tél. 60.19.78.39 h. bur. M. 
Debray. 


Vends lecteur 5 1/4 Vortex F1-S (pas besoin DD1 
pour CPC 464) + 10 disks jeux/util. + cas. 
2500 F. Tél. 49.28.49.66. Dom. Niort. 


CPC 464 recherche drive DDI 1, 900 F, Strasbourg. 
Tél. 88.27.22.21. 


Vous pouvez passer directement vos annonces sur le minitel. 
Elles seront validées dans la journée. 
Attention : dans un tel cas, elles ne seront pas dans la revue. 
Une annonce envoyée à la rédaction est mise sur le serveur dans les 48 heures. 


Cherche copie de l’article de juin 87 : CAO sur CPC 
n° 4, frais remboursés. A. Paolino 9 rue du Lich- 
tenberg 67800 Hoenheim. 


6128 recherche correspondant pour échange logi- 
ciels (dans toute la France). Tél. 23.56.22.73 après 
18h. Jean-Michel. 


Vends CPC 464 couleur + 25 jeux + éducatifs + 
10 utilitaires (ass, pas, tab, txt, gest, BASIC...) + 
doc: 3000 F Tél. 46.30.23.23 P.665 h.b. 


Vends N° 57,67, 72,77, 82, 92 à 168 du journal 
Hebdogiciel. Mme Thomas tél. 99.31.21.51. 


Stop affaire ! Le tout seulement 500 F : ordinateur 
personnel Aquarius + raccord télé + livres + 
(envoi gratuit). Tél. 76.56.00.54. 


Vends CPC 464 mono + jeux en bon état + divers 
manuels, le tout 1600 F. Demandez Christian tél. 
16 (1) 60.47.28.83. 


Vends Amstrad 6128 coul. t.b.e. + 40 disq. + 
doc. + rev. + 2 joyst: 3500F. Tél (1) 
60.75.30.44 M. Christophe Le Toullec (91) 
Essonne. 


Kit d'adaptation lecteur 5 1/4 pour 464 - 664 - 
6128 (alim. + cordon + drive 2 têtes commut). 
1000 F tout compris. Pour ts rens. 39:72.68.66, 
18h. 


Vends jeux et utilitaires originaux pour CPC 464 ou 
6128 - K7 ou disq. moitié prix, neuf ! Liste sur dem. 
Renault 69.00.45.75 après 17h. 


Vends 25 K7 : 1000 F (originaux) dont Crafton, 
3D, Grand Prix, Infernal Runner, Kikekankoi, 5 Axe, 
Sorcery, Dash. Tél (1) 43.80.66.92. 


CPC 6128 cherche contacts pour échanges (jeux, 
utilitaires). Edouard Laniesse, 10 rue des Brosses, 
77169 Boissy le Chatel. 


Vends Apple Il E moniteur vert - lecteur 5 1/4, nom- 
breux logiciels, prix à débattre. Tél. 82.50.67.95. 


Vends CPC 464 + DDI 1 + Mirage Imager + 
synthé vocal + 2 joysticks + 250 disquettes + 
jeux + 50 magazines + cassette azimutage, 
5500 F. Tél. 48.84.19.75. 
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Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haïie de Pan — 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


CPC N° 


97 


BON DE _ 


LIVRES 
+ port 10% 


- COMMANDE 


REPORT TOTAL GENERAL A + B 


HORS SERIE (sans cassette) 
Compilation n° 2 (5 à 8) 80 F n° 2 TSF — 
[ n°3, 4,5, 6,8 15F 
La pratique des imprimantes 
Michel ARCHAMBAULT 95 F Entourez le (ou les) numéro(s) commandé(s). 
Cl Apprenez l'électronique sur AMSTRAD 
P. BEAUFILS & B. DESPERRIER 95 F DISQUETTES 
Franco de port 
Communiquez avec AMSTRAD 1 disquette contient 2 n° consécutifs de CPC 
D. BONOMO -— E. DUTERTRE 115F - Disquette n° 1 comprend CPC 1 et 2 
(Nelle édition) - Disquette n° 2 comprend CPC 3 et 4 
— Disquette n° 3 comprend CPC 5 et 6 
Jouez avec AMSTRAD - KERLOCH dl | needed ceC aa 
— Disquette n° 5 comprend CPC 3 et 10 
L'Univers du PCW -— Patrick LEON ISO = | 2 Det n°6 nn CPC 11 et 12 
| | — Disquette n° 7 comprend CPC 13 et 14 
L'Univers des PCW -— Patrick LEON 119 F - Disquette n° 8 comprend CPC 15 et 16 
Cassette — Disquette n° 9 comprend CPC 17 et 18 
| — Disquette n° 10 comprend CPC 19 et 20 
1 Communiquez avec Amstrad 250F —— | _ Disquette n° 11 comprend CPC 21 et 22 
| — Disquette n° 12 comprend CPC 23 et 24 
Communiquez avec AMSTRAD 190F | _ Disquette n° 13 comprend CPC 25 et 26 
Disquettes — Disquette n° 14 comprend CPC 27 et 28 
— Disquette n° 15 comprend CPC 29 et 30 
A:TOTAL 


B:PORT 10% 


À + B TOTAL GENERAL 


ANCIENS NUMEROS 
Franco de port 


Attention, n° 1 à 8, 12, 14, 15, 17, 21 et HS 1, 7 épuisés 


9,10, 11, 13, 16, 18, 19 
20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31 


25 F 


NOM : 


Adresse : 


Les disquettes HORS-SERIE 
contiennent les programmes du numéro correspondant. 


abonné 110 F [] non abonné 140 F 


abonnement disquettes (6) 600 F 


Les abonnements disquettes ne sont pas rétroactifs. 


Total général franco Por en sus 10 % pour envois par avion 


Code postal : 


Date : 


Ville : 


Signature : 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. 
Retournez le(s) bulletin(s) ou une photocopie à : Editions SORACOM - La Haiïe de Pan - 35170 BRUZ. 


SACHEZ APPRÉCIER ET CONSOMMER SANS MODÉRATION. 


DISCOLOGY, à déguster nature et sans amuse-gueule 


DISCOLOGY par tous ceux qui ont soif de pouvoir et de connaissance. 
EN 7 POINTS FORTS: Savourez la version 5.0 sans glace car elle est bien dosée. 
> La facilité : Fenêtres, Menus Déroulants, Aide Intégrée. Venez vous désaltérer SSASQUrEe pétillante d informations et 
» La vitesse: 160Ko de Langage Machine pur. découvrir son monde inconnu tout en gardant les idées claires. 
> La performance : la ps de os on pour vos dis 
quettes et cassettes. Encore plus rapide, encore plus puissante. 4 F4 F L 2 h 
ol te de Re La recette de ce cocktail détonant ? Un Editeur ultra-puissant 
approfondie. au goût inédit, un Copieur hyper-performant pour les 
> L'inédit : un Editeur universel de secteurs, un Désassembleur Z 80, . o 5 
Mn Leur Bose Un Eslocur en Tenir fier amateurs de sensations fortes, un Exploreur super-musclé 3 
don ES avec un zeste d'exotisme... Et une bonne dose d'ingéniosité! à 
) La référence: des miliers d'utilisateurs satisfaits en F : : A & 
comme à l'Etranger DISCOLOGY ms Re oi bre DISCOLOGY version 5.0 et tout devient limpide. £ 
Presse Internationale. ce 
Alors TCHIN! Z 


BON DE COMMANDE Version 5.0 


DISCOLOGY Version 5.0 est disponible immédiatement, sans frais de port, auprès de MERIDIEN Informatique 5 et 7, La canebière -13001 Marseille Tél. : "= 


i ilité i édiate. 

Etie conmande DSCOLOGY qu préc de 3S0E Ge a Le ic 
O Je commande Master Save (Copieur seul) au prix de 190F Je règle ma commande : ||] 
on Je possède déjà Master Save et je commande DISCOLOGY. O par chèque joint (port gratuit) | | | 

Je joins ma disquette Master Save et je ne paye que 160F D contre-remboursement (+ 30F de frais de port) | 
Nom : Prénom : | 
Adresse : 
Code Postal : Ville : Tél. : 


MERIDIEN 
INFORMATIQUE 


A retourner à MERIDIEN Informatique - 5 et 7, La Canebière - 13001 MARSEILLE 


